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ABSTRACT 


Research is being conducted to develop flying qualities 
criteria for Single Pilot Instrument Flight Rule (SPIFR) opera- 
tions. Significant progress has been made with regard to most 
of the key issues encompassed in the SPIFR research program. 

The ARA aircraft has been modified and adapted for SPIFR opera- 
tions. Aircraft configurations to be flight-tested have been 
chosen and matched on the ARA in-flight simulator, implementing 
modern control theory algorithms. Mission planning and experi- 
mental matrix design have been completed. Microprocessor soft- 
ware for the onboard data acquisition system has been debugged 
and f light-tested. Flight-path reconstruction procedure and 
the associated FORTRAN program are at a final stage of develop- 
ment. Work has begun on algorithms associated with the statist- 
ical analysis of flight test results and the SPIFR flying 
qualities criteria deduction. 



PREFACE 


This investigation is being conducted by the Flight 
Research Laboratory at Princeton University, Princeton, 

New Jersey under Contract No. NASl-15764 for the NASA Langley 
Research Center. This is the first annual technical report, 
and it reflects the SPIFR research effort through May 1981. 

The principal investigator for the study is Professor 
Robert F. Stengel. He is assisted by W. Barry Nixon, senior 
technical staff member, George E. Miller, technical staff 
member, Aharon Bar-Gill, graduate student, Thomas 0. Williams, 
technical staff member. Barton C. Reavis, technical associate 
and electronic technicians Louis Pokrocos, Thomas Frobose and 
Karl Thomas. 


Use of commercial products or names of manufacturers in this 
report does not constitute official endorsement of such products 
or manufacturers, either expressed or implied, by the National 
Aeronautics and Space Administration. 


1 



TABLE OF CONTENTS 

Page 


PREFACE i 

LIST OF FIGURES iv 

LIST OF TABLES V 

LIST OF SYMBOLS vi 

1 . INTRODUCTION 1 

1.1 Background and Goals 1 

1.2 Organization of the Report 2 

2. AIRCRAFT AND DATA ACQUISITION SYSTEM PREPARATION 3 

2.1 Aircraft System Modifications 3 

2.2 Instrumentation and Data Recording System 8 

2.3 Software Development 12 

3. THEORETICAL ASPECTS OF EXPERIMENT DESIGN AND 

FLIGHT PATH RECONSTRUCTION 14 

3.1 Aircraft Dynamic Model 14 

3.2 Candidate SPIFR Configurations via the 

Output Command Algorithm 18 

3.3 Experimental Matrix Design 20 

3.4 Implementation of SPIFR Configurations via 

the Implicit-Model-Following Algorithm 22 

3.5 Effects of Navigational Accuracy and the 

"Learning Curve" Effect on Mission Planning 24 

3.6 Optimal Smoothing of Flight Test Records 

and Flight Path Reconstruction 28 

4. PRELIMINARY FLIGHTS 40 

5. CONCLUSION 45 


XX. 



TABLE OF CONTENTS CcontO 


Page 

APPENDIX A; DERIVATION OF THE LINEARIZED VERSIONS 
OF THE SIMPLIFIED AND THE IMPROVED 
KINEMATIC MODELS 47 

APPENDIX B: PROGRAM LISTINGS 54 

APPENDIX C; COMPUTER SYSTEMS FOR PREPROCESSING 

AND POST-FLIGHT DATA REDUCTION 130 

APPENDIX D: INTEGRATION OF DISTANCE MEASURING 

EQUIPMENT (DME) INTO THE DATA 
COLLECTION SYSTEM 138 

REFERENCES 153 


XIX 



LIST OF FIGURES 


No . Page 

2-1 Avionics Research Aircraft, Navion N5113K 4 

2-2 Overview of the ARA In-Flight Simulator System 5 

2-3 Cockpit Displays of the ARA. Modular SPIFR 

Evaluation Pilot Panel at Left 7 

2- 4 SPIFR Digital Data Recording System 9 

3- 1 Block Diagram for Implementation of a SPIFR 

Configuration on the ARA In-Flight Simulator 23 

3-2 SPIFR Flight Path, Variant I 25 

3-3 SPIFR Flight Path, Variant II 25 

3-4 SPIFR Flight Path, Variant III 25 

3-5 SPIFR Flight Path, Variant IV 25 

3-6 Ground Station, Engagement in the VOR/VOR or 

the DME/DME Modes 26. 

3- 7 Examples of Application of the Optimal Flight 

Path Reconstruction Algorithm to the Climbing 

Turn Pseudo-Flight-Test Data 36 

4- 1 Knee-Pad Versions of the- Performance and Work- 

load PORs and of the Evaluation Sheet 41 

C-1 Data Reduction Procedure 130 

D-1 DME Tuning Via NAV/COM 140 

D-2 Serial Data Word Format 140 

D-3 Bit Format 142 

D-4 DME Tuning Electrical Interface 144 

D-5 DME - Microprocessor Electrical Interface 146 

D-6 DME Interface Block Diagram 147 


IV 



LIST OF TABLES 


No. 


Page 

2-1 

Input Assignments for SPIFR Digital Data 
Recording System 

10 

2-2 

Output Assignments for SPIFR Digital Data 
Recording System 

11 

3-1 

Experimental Matrix for First SPIFR Flight- 
Test Series 

21 


V 



LIST OF SYMBOLS 


Variables 




G 

g 

H 


h 

h 

I 

K 

L 


P 

P 

Q 

q 

R 

r 

S 

s 

T 


acceleration vector in body axes, "g” 

cartesian components of a„ , "g" 

implicit model following gain matrix 
system dynamics matrix 

nonlinear functions for vehicle equations 
of motion 

control effects matrix 

2 

gravitational acceleration, ft/sec 
observation ma:trix 
transfoirmation matrix 
altitude, ft 

nonlinear measurement functions 
identity matrix 
Kalman gain matrix 
transformation matrix 

pitch moment stability-and-control derivative 

random noise associated with the ( ) variable 

state covariance matrix 
roll rate, deg/sec 
process noise covariance matrix 
pitch rate, deg/sec 

measurement noise covariance matrix 
yaw rate, deg/sec 

intermediate command output matrix 
Laplace transfojnn variable 

duration of flight segment to be reconstructed, 
sec 


VI 



u 

u 

V . 
—air 

V 

V 

w 

w 





time, sec 

x-axis velocity, ft/sec 
control vector 
airspeed vector, ft/sec 

y-axis velocity, ft/sec 
measurement noise 
z-axis velocity, ft/sec 
process noise vector 

wind vector in inertial frame, ft/sec 

(aerodynamic + thrust) -force along the x-axis 
derivative 

axial position in inertial frame, ft 
state vector 

lateral position in inertial frame, ft 
command vector 

(aerodynamic + thrust) -force along the z-axis 
derivative 

vertical position in inertial frame, ft 
observation vector 


Variables (Greek) 


a 

3 

6E 

6F 

6T 

0 

I 

$ 

0) 

0) 


angle of attack, deg 
angle of sideslip, deg 
elevator deflection, deg 
flap deflection, deg 
throttle deflection, percent 
pitch attitude angle, deg 
summation 

state transition matrix 
roll attitude angle, deg 
yaw attitude angle, deg 
body angular rate skew matrix 
angular rate vector 


Vll 



Superscripts 

B 

I 

Subscripts 

A 

ARA 

B 


comm 

F 

I 

i 

k 

M 

o 

q 

u 

w 

6e 

6F 

6T 

Punctuation 

(*) 

(_) 

5 ( )/ 6 ( ) 


transformation to body axes 
transformation to inertial axes 


kinematic model A 
Avionics Research Aircraft 
body-axis frame 

from body axes (with transformation matrix) 

kinematic model B 

feedback 

backward filter 

commanded (desired) value 

feed fojrward 

inertial frame 

from inertial axes (with transformation matrix) 
navigation station sequencing index 
sampling instant index 
model 

nominal value 
sensitivity to pitch rate 
sensitivity to x-axis velocity 
sensitivity to z-axis velocity 
sensitivity to elevator deflection 
sensitivity to flap deflection 
sensitivity to throttle deflection 


derivative of quantity with respect to time 
vector quantity 

partial derivative of one variable with respect 
to another 


vixx 



A ( ) perturbation variable 

( ) * steady-state variable 

( ) ^ transpose of a vector or matrix 

( ) ^ inverse of a matrix 

(^) estimated value of a variable 

# 

( ) pseudoinverse of a matrix 

s( ) sin( ) 

c( ) cos( ) 


A/D 

ADF 

ARA 

CDU 

CHR 

D/A 

DME 

FEW 

FRL 

GA 

GDOP 

IAS 

IFR 

I/O 

POR 

PROM 

RAM 

SBC 

SPIFR 

TAS 

VFR 

VOR 


analog- to-digital 
automatic direction finder 
Avionics Research Aircraft 
control- display unit 
Cooper- Harper Rating 
digital-to-analog 
distance measuring equipment 
fly-by-wire 

Flight Research Laboratory 

general aviation 

geometric dilution of precision 

indicated airspeed 

instr-ument flight rule 

input/output 

pilot opinion rating 

programmable read-only memory 

random access memory 

single- board computer 

single-pilot instrument flight rule 

true airspeed 

visual flight rule 

very-high-frequency omni-range 


XX 




1 . 


INTRODUCTION 


1.1 BACKGROUND AND GOALS 

This investigation of Single-Pilot Instrument Flight 
Rule (SPIFR) flying qualities criteria focuses on General 
Aviation (GA) operations. General Aviation plays an important 
role in this nation's transportation network (there are about 
200,000 active GA aircraft, with the projected nvimber for 1990 
being about 300,000), but the difficulty of piloting and the 
inherent hazards associated with the SPIFR flight regime pose 
obstacles to continued growth of this mode of transportation 
(Ref. 1) . 


An important effect which contributes to an increased 
hazard for SPIFR operation is the low-frequency dynamic response 
of a GA aircraft, which does not have to comply with any federal 
aviation regulation (Ref. 2) . As a result, most contemporary GA 
aircraft have, at best, a marginally stable phugoid mode which 
may become divergent under wind shear conditions (Ref. 3). This 
dynamic response problem generally can be coped with under VFR 
conditions, although it increases pilot's workload significantly. 
In typical commercial flight, the IFR workload is shared by two 
pilots; however, GA IFR flight often is controlled by a single 
pilot. Airframe dynamic deficiencies, finite capabilities of 
the human operator, and the often limited capabilities of communi- 
cations and navigation equipment available in typical GA air- 
craft compound the flight problem under SPIFR conditions. 

Prior research has addressed separately various issues, 
which coupled together, result in this unique flight mission/ 
regime. For example. Ref. 4 and 5 look into the dynamic response 
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characteristics of GA aircraft. Ref. 6 presents the effect of 
advanced cockpit controls and displays, and Ref. 7 addresses 
the pilot workload issue. The SPIFR research initiated by 
the Flight Research Laboratory (FRL) at Princeton University 
is an integrated theoretical and flight test program, whose 
principal objectives are: 

1.2 ORGANIZATION OF THE REPORT 

Chapter 2 describes the preparation of the ARA for 
SPIFR mission flights and the onboard experimental setup -- in 
particular, the hardware and software aspects associated with 
the data acquisition process. Chapter 3 presents theoretical 
aspects of the SPIFR research, including modern estimation 
and control theory algorithms for in-flight simulation and 
flight path reconstruction. Chapter 4 refers to preliminary 
flights and to the post-flight data preprocessing procedure 
verification. Conclusions are contained in Chapter 5 . The 
four appendices contain additional theoretical derivations, 
program listings for onboard and post-flight processing, 
description of computer systems employed in this research, and 
the hardware scheme of the unique DME integration into the SPIFR 
experimental setup. 


To pursue the trends revealed in previous research, 

To develop new methodologies for analysis of 
complete SPIFR missions . 

To obtain statistically significant flying quali- 
ties criteria for single-pilot instrument flight 
operations. 
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2 . 


AIRCRAFT AND DATA ACQUISITION SYSTEM PREPARATION 


This chapter describes the preparation of the in-flight 
simulator and of the onboard digital data acquisition system for 
SPIFR flight testing. Extensive engineering and technical effort 
was required for aircraft modifications and; rewiring^ for new 
avionics system installation, and for onboard experimental setup 
integration. The results of this effort are summarized in the 
following sections. 

2.1 AIRCRAFT SYSTEM MODIFICATIONS 

The Avionics Research Aircraft CARA) is a Ryan Navion 
{N5113K) that has been modified into a fly-by-wire (FEW ) , vari- 
able-stability aircraft (Fig. 2-1} . It is capable of simulating 
a variety of other aircraft using feedback control and command 
augmentation. The ARA is equipped to measure attitude, angular 
rates, and linear accelerations in three axes, aerodynamic angles 
(a, B) f airspeed, altitude, and a ntunber of other flight variables. 
Details of the ARA FEW system can be found in Ref. 8. 

The evaluation pilot is to fly a SPIFR mission with the 
ARA responding as a desired configuration. In an emergency, the 
safety pilot can override the FEW system and take direct control 
of the aircraft, CFig. 2-2) . 

To be used with the SPIFR program, the ARA had to under- 
go extensive modifications: 

• Design and installation of a modular instrument 
panel. 

• Acquisition and installation of a modern navigation/ 
communication instr-ument package. 

• Addition of secondary workload devices in the cockpit. 


3 

















Figure 2-2. Overview of the ARA in-flight Simulator System. 
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Figure 2-3 illustrates the ARA's modular display panel 
configuration/ with the evaluation pilot's station on the left, 
the safety pilot's station on the right/ and the Bendix BX-2000 
navigation/communication stack separating the two. The Distance 
Measuring Equipment (DME) readout is mounted on a switching 
panel at the top of the radio stack. The Very-high-frequency 
Omni-Range (VOR) navigation/communication unit is located under 
the switching panel . The blank space below this unit is 
reserved for the Automatic Direction Finder (ADF) and for the 
transponder. 

The DME unit has been integrated into the onboard ex- 
perimental setup / maintaining the capability to sequence the 
available navigational stations automatically (through micro- 
processor control) . The importance of this option is discussed 
in Section 3.5. The technical implementation details are pre- 
sented in Appendix D. 

The safety pilot's panel is a permanent fixture/ with 
conventional instruments and elements for control of the vari- 
able-stability system. The latter occupy the right side of 
the panel and the lower and middle consoles. The evaluation 
pilot's panel can be removed as a unit to facilitate installa- 
tion of alternate panels for other investigations. Secondary 
workload meters / lights/ and switches also have been added to 
the panel. 

The secondary workload meters are additional instru- 
ments slaved to the onboard microprocessor/ which occasionally 
forces the needles into their "red zones". The evaluation 
pilot is instructed to keep them "green". Alternately/ 
the pilot can be asked to extinguish lights turned on (pseudo- 
randomly) by the microprocessor program. It is also possible to 
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Figure 2-3. Cockpit Displays of the Avionics Research Aircraft. Modular SPIFR 
Evaluation Pilot Panel at Left. 
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simulate typical communications workload by blending audio 
inputs from a pre-recorded tape with specific instructions 
radioed from the ground on the flight test frequency. 

2,2 INSTRUMENTATION AND DATA RECORDING SYSTEM 

The SPIER digital data acquisition system is illustrated 

in Fig. 2-4. It is built around the SPIER microcomputer, which 

uses the Z-80A central processing unit and the Am9511 mathema- 
. TM 

tics processor in a Multibus architecture. As currently con- 
figured, the SPIER microcomputer contains 48K bytes of RAM (ran- 
dom access memory) and 16K bytes of PROM (programmable read-only 
memory) . It accepts 32 analog inputs and produces 6 analog 
outputs . 

The ARA's safety pilot communicates with the SPIER 
Microcomputer through a hand-held control/display unit (CDU) , 
the Termiflex HT/4. The pilot is able to start and stop pro- 
cessing or recording through the CDU, change stored n\mierical 
values, and so on. Conversely, the CDU can display internally 
triggered error messages to the safety pilot. The evaluation 
pilot normally is unaware of the SPIER Microcomputer's operation, 
other than through secondary workload stimuli and responses. 

Analog and digital inputs and outputs shown in Fig. 2-4 
are, for the most part, self-explanatory. Tables 2-1 and 2-2 
contain lists of inputs and outputs. The SPIER Microcomputer 
obtains its analog inputs from the Digital Avionics Research 
System (DARE) junction box (J-Box) previously installed in the 
ARA for another Langley Research Center program. Thus, there 
is a high degree of "plug compatibility” between the SPIER and 
DARE programs. 
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Figure 2-4. SPIFR Digital Data Recording System. 











TABLE 2-1 

Input Assignments For 
SPIFR Digital Data Recording System 


Analog Inputs 


1. 

Control Coliimn Angle 

17. 

2. 

Throttle Setting 

18. 

3. 

Flap Command 

19. 

4. 

Angle of Attack 

20. 

5. 

Pitch Angle 

21. 

6. 

Pitch Rate 

22. 

7. 

Airspeed 

23. 

8. 

Control Wheel Angle 

24. 

9. 

Foot Pedals 

25. 

10. 

Sideslip Angle 

26. 

11. 

Roll Angle 

27. 

12. 

Yaw Angle 

28. 

13. 

Roll Rate 

29. 

14. 

Yaw Rate 

30. 

15. 

Pitch Trim 

31. 

16. 

Roll Trim 

32. 

Digital Inputs 


1. 

DME Distance 

6. 

2. 

VOR#l Frequency 

7. 

3. 

VOR#2 Frequency 

8. 

4. 

DME Frequency 

9. 

5. 

Time 

10. 


Yaw Trim 

Normal Acceleration 
Axial Acceleration 
Lateral Acceleration 
V0R#1 Azimuth 
V0R#2 Azimuth 
Glide Slope Elevation 
MLS Azimuth 
MLS Elevation 
Radar Altitude 
Barometric Altitude 
Stick Force (.3rd Year) 
Simulated Turbulence Level 
Landing Gear 
Wind Shear 
System Engage 


Barometric Altitude 
ADF Bearing 

Variable-Stability System Status 
Pilot Mode Switches (8) 

Avionics System Status (8) 
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TABLE 2-2 

Output Assignments For 
SPIFR Digital Data Recording System 


Analog Outputs 


1. 

Secondary workload 

meter 

#1 

4. 

Spare 

2. 

Secondary workload 

meter 

#2 

5. 

Spare 

3. 

Secondary workload 

meter 

#3 

6. 

Spare 


Digital Outputs 

1. DME tuning 

2. DME station indicator 

3. Pilot workload lights 


4. Avionics System status 
lights 

5. Tape recorder 



A presampling filter (16 Hz break-point frequency) has been 
introduced for each analog channel to filter out the engine- 
vibration-induced noise. 

Figure 2-4 also illustrates the digital radio tuning 
feature that will be put to use during the second phase of the 
project. Error budget analyses conducted during the first 
phase confirmed the superiority of DME over VOR for position 
fixing, even at the short ranges to be used in our flight tests. 
Consequently, it is advantageous to substitute multiple DME 
measurements for VOR measurements in flight data reduction. 

The BX-2000 DME unit can acquire and lock on a new station in 
considerably less than one second; this feature will be used 
in DME-only "round-robin" position fixing for flight path de- 
termination. 

The digital tape recording unit is the Hewlett Packard 
(HP) 2644 terminal, which houses two DCIOOA magnetic tape 
cartridge drive units. Its built-in memory enables transition 
from one cartridge to the other without losing any information. 
Such a pair of cartridges has a storage capability of about 
220K bytes, which is more than enough for a complete SPIFR 
mission run. 

To accomodate the complete experimental setup, a pallet 
to fit into the ARA-aircraft behind the pilots' seats has been 
designed and built by the FRL technical staff. It weighs 215 lb. 
and uses the same mounting brackets as the DARE pallet. 

2 . 3 SOFTWARE DEVELOPMENT 

The SPIFR program focuses on the low-frequency dynamic 
response of the airframe and on navigation-related information. 
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whose rats of change is low as well. On the other hand? as 
discussed in Section 3.5, simulated SPIFR flight duration has 
to be about 30 min, during which all the data channels have to 
be recorded at least every second. Thus, the main objectives 
of the onboard software design are to: 

• Sample the analog data at a high enough rate to 
avoid aliasing. 

• Compress the high frequency data so that the 
most significant flight test information can be 
recorded efficiently with minimal error. 

• Trigger preprogrammed sequences of the secondary 
workload devices (lights, dummy meters) . 

• Enable the safety pilot to operate the data 
acquisition system via the hand-held CDU. 

The information recorded in flight can be separated 
into "slow" and "fast" variables. The "slow" variables are 
principally the positional measurements, which can be sampled 
once per second with minimal aliasing effect. The "fast" vari- 
ables • — for example, angular rates and linear accelerations — - 
are sampled 10 times per second. For the sake of data compac- 
tion, they are averaged and recorded once each second. The 
simple averaging process is analogous to "low-pass" filtering. 
Thus, low-frequency information is passed with little modifica- 
tion, while high-frequency signals are attenuated. 

The HP 2644 's recording format uses 16-bit binary words. 
The SBC 732 A/D board is designed to fill in the 12 left-most 
bit positions of a 16-bit field, and an appropriate shift is 
performed to comply with the standard output format. Appendix B 
contains additional detail with regard to the software aspects 
of the SPIFR onboard data acquisition system, plus the complete 
listing of the microprocessor assembly program. 
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3. 


THEORETICAL ASPECTS OF EXPERIMENT 
DESIGN AND FLIGHT PATH RECONSTRUCTION 


This chapter starts with the presentation of the 6-DOF 
dynamic model of aircraft motion, as it is applied in the sub- 
sequent sections. Section 3.2 discusses the output command 
algorithm and its implementation to set up a priority list of 
aircraft configurations to be simulated in the first SPIFR flight 
test series. The experimental matrix design, based on statistical 
reasoning, follows in Section 3.3; the application of the 
chosen configurations on the ARA- in- flight simulator, via the 
implicit model following algorithm appears in Section 3.4. SPIFR 
mission planning (Section 3.5) is based mainly on mathematical- 
statistical modeling of the en-route navigational errors. 

Finally, the algorithm for post-flight optimal smoothing and 
flight path reconstruction is presented in Section 3.6. 


3.1 AIRCRAFT DYNAMIC MODEL 


The general fonaalation of a nonlinear dynamic model 
of a system is: 


X = f (x,u) (3-1) 

where x is the state vector and u is the control vector. The state 
vector X used here contains three components each of translational 
rate (u,v,w) , translational position (x^, y^, z^) , angular rate 

(p, q, r) and angular attitude (<|), 6, \p) . Both body and in- 
ertial axis frames are taken right-handed and with z pointing 
downward. ■ The translational rate equation of the aircraft mathe- 
matical model is : 


V . = a„ + coV . + H®g;^ 

—air — B —air I-^I 


(3-2) 
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The airspeed, expressed in body axes, is: 


V . = [u V w] 

—air 


(3-3) 


Acceleration, expressed in body axes, is: 


a„ = [a a a ] 
— B X y z 


(3-4) 


The angular rate cross-product-equivalent matrix w is defined as 


~ A 

03 = 


0 r -q 

-r 0 p 

q -p 0 


(3-5) 


The gravity vector in an assumed local level/local north 
inertial axis system is: 


A T 

Et = [0 0 g]^ 


(3-6) 


The transformation matrix from inertial (I) jto body 
(B) axes, with [ip 9 <j>] Euler rotations in the specified 
order, is; 


B A 
= 


cipc9 

Sipcd 

-s6 

ClpSdS(p-SipC<p 

SipS<psd+C\pC(p 

c6s(j) 

Cipsdc<p+SipS(p 

SipSdC(p-C\pS(p 

C0C(f) 


(3-7) 


where 
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(3-8) 


s( ) = sin( ) 
c ( ) = cos ( ) 


The second equation of the aircraft motion 6-DOF mathe- 
matical model describes the transformation of body-axis rates 
to Euler angle rates, and it is 


c 

<t> 


p 

• 

I 


0 

= s 

q 



r 


where 


S C0 


C0 

s0scj) 

S0C(j) 

0 

c0c4> 

-cds<f) 

0 

S(J) 

ctj) 


(3-9) 


(3-10) 


The third aircraft equation combines the effects of airspeed 

V . and of the wind vector (expressed in inertial axes) to 
—air —I 

compute translational rate; 


= «B^air 


(3-11) 


where x^ is the position vector expressed in inertial axes; 


r s [x V 2 ] 
-I ^ I I-* 


(3-12) 


g 

Based on the orthonormality of in eq. (3-7) ; 


Hg = (H®)"^ = (H®)^ 


(3-13) 
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The following relationships constitute the algebraic pai 
of the model, yielding the output or the measurement models. 
The airspeed absolute value is: 


I / 2 2 ^ 2,1/2 

'-air' + w ) ' 


(3-14) 


The angle of attack is given by: 


a. “1 yW, 

a = tan (— ) 

u 


C3-15) 


The sideslip angle is: 


6 - tan-1 (i) 


(3-16) 


The definition of the aerodynamic angles with respect to body 
axes is compatible with the actual measurement mechanization 
in the ARA.* Assuming that the origin of the inertial frame 
is at sea level, the altitude h is: 


h = -2, 


(3-17) 


The acceleration vector a of eq. (3-2) and (3-4) reflects 

— B 

the effect of aerodynamic and thrust forces, which act on the 
airframe. For example, the linearized version of eq. (3-1) for 
the longitudinal case is: 


X, , XX Au 

u w q 


Z Z Z I Aw 
u w wj 


""SE ""ST ''6F 




(3-18) 


The control vector here is 


* The sideslip angle definition differs from the conventional 
definition, which is: 


= sin 




—air ‘ 
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(3-19) 


u = [A6E A5T A6F]'^ 

where 5 e is the elevator deflection, 6 t is the throttle travel 
and 6F is the flap deflection. 

To complete this illustration of aerodynamic and thrust 
effects within the context of longitudinal dynamics, the 
pitch moment (about the center of gravity of the airplane) 
equation must be introduced: 

Aq = M Au + M Aw + M Aq + M.„A5E + M.„A6T + M.„ASF ( 3 - 20 ) 

^ u w q ^ 6E 5T oF ' 

Combining eq. (3-18) with eq. (3-20) and fully accounting 
for the physical effects reflected in eq. (3-2) to (3-10) , we obtains 



Equation (3-21) is of the form of a state equation; 

= F ^ + G ^ (3-22) 


where F is the state matrix and G - the control matrix. 


3.2 CANDIDATE SPIFR CONFIGURATIONS VIA THE OUTPUT COMMAND 
ALGORITHM 

The basic assiimption underlying the following derivation 
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is that if a configuration requires large state and control 
variations to retrim from one nominal SPIFR flight equilibrium 
to another, it may also be problematic for the pilot.* Thus, 
to pick the candidate configurations for SPIFR in-flight simu- 
lation, we first choose initial configuration parameters and 
flight equilibrium. Then we examine the required variations 
in state and control variables, which correspond to various 
retrimming requirements . The retrimming requirement may be 
formulated in terms of flight path variables, e.g., variation 
in airspeed AV* or in flight path angle Ay*. 

The mathematical formulation uses the output command 
algorithm (Ref. 9) . The following output equation is added 
to the state equation eq. (3-22) : 

Ay = H Ax + H Au (3-23) 

X — u — 

where ^ represents the required retrimming flight-path vari- 
ations. An ideal transition to the new flight equilibrium 
is assiimed; 


0 = FAx* + GAu* 

Ay = H Ax* + H Au* 

— ^oram X — u — 


(3-24) 


where ()* symbolizes the steady-state variations in state and 
control that correspond to ^ comm. 


As shown in Ref. 9, the solution to eq. (3-24) is: 


As used here, a configuration is a set of aerodynamic co- 
efficients which characterizes the dynamic response of the 
aircraft. 
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Ax* = - f"^GS Ay (3-25) 

— ■ ■— ^conuti 

Au = S Ay (3“26) 

— — ^omm 

where ; 

S = (-H f"^G + H )"^ (3-27) 

Ul 

As a result of application of the output coiranand algorithm, 
variations in the following aerodynamic parameters have received 
priority in the context of SPIFR flight testing; 


a) 

b) 


X , Z , , M 

u u a u 


^5T 


Stability and control derivatives to be varied in the 
flight tests fall into two categories; those that affect only 
trim and those that affect both trim and stability. Control 
derivatives (list in (b) above) fall into the first category 
because, as demonstrated by eq. (3-21) , they appear in the 
control matrix G, thus affecting Ax * and Au* . Stability de- 
rivatives (list in (a) above) fall into the second category 
because they appear in the F matrix, thus affecting both trim 
and stability. 

The ranges of variation of the aerodynamic parameters 
must reflect the trends in GA aircraft design. These are dis- 
cussed in the context of the experimental matrix design in the 
next section. 

3.3 EXPERIMENTAL MATRIX DESIGN 


The high-priority list of configurations of the previous 
section has been limited to seven configurations, as we must 
tradeoff between; 
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• Number of configurations to be flight- tested. 

s Number of replications of SPIFR mission with a given 
configuration (important for statistical soundness) . 

• Nximber of evaluation pilots. 

All of this must be done under the constraint of about 25 
flight hours. 


These tradeoff considerations resulted in the following: 

• 15 configurations (nominal ARA and plus/minus 
variations of each of the 7 coefficients) . 

• Two test pilots plus one GA pilot. 

• Numbers of replications are shown, along with all the 
other information relevant to the experimental matrix, 
in Table 3.1. The pluses and the minuses to the 
right of the numbers of replications describe how many- 
positive and how many negative parameter variations 
(with respect to nominal) are simulated for each of 
these numbers. 


Parameter to 
be varied 

Test 
pilot 1 

Test 
pilot 2 

GA 

pilot 

Number i 
mission 

Nominal 

2 

2 

2 

6 

X 

u 

2+ 

2+ 

3++ 

7 

Z 

u 

2+ 

2+ 

3++ 

7 

M 

2+ 

2+ 

3++ 

7 

u 






2+ 

2+ 

3++ 

7 

^5T 

2+ 

2+ 

3++ 

7 

^6E 

2+ 

2+ 

2 + 

6 

^6T 

2+ 

2+ 

2+ 

6 


Siam = 53 

Table 3.1: Experimental Matrix for -the First SPIFR 
Flight Series. 
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The ranges of the variations in the aerodynamic para- 
meters are intended to reflect possible trends in GA air- 
craft design. For example/ if the design goal is a configura- 
tion with a shorter body, an increase in elevator area may be 
required in order to preserve its moment effectiveness 

Such an area change may affect the vertical force sensi- 
tivity of the elevator AZgg<0. On the other hand, introduction 

of a canard control surface may result in Z^g>0. Another 

example may be of a configuration design that features a 
high wing for improved cabin visibility and wing-mounted 
shrouded propellers for increased thrust. As a result and 
may be affected by the variations in the aerodynamic 
forces and the moment arms. 

3.4 IMPLEMENTATION OF SPIFR CONFIGURATIONS VIA IMPLICIT- 
MODEL-FOLLOWING ALGORITHM 


The chosen SPIFR configurations are implemented on the 
in-flight simulator via the implicit-model-following algorithm 
(Ref. 10). State equations of the type of eq. (3-21) may be 
written for the nominal ARA configuration (subscript ARA) and 
for the configurations to be simulated (subscript M) , 


—ARA ^ARA^ARA''’^ARA— ARA 


(3-28) 


— M 


= F Ax 
M — ^M 


+ G Au„ 
M — M 


(3-29) 


Our objective is to obtain the control vector Au^^^^ , 
which will make the ARA respond as the required configuration. 
The perfect model following condition is; 
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(3-30) 




Figure 3.1. Block Diagram for Implementation of a SPIFR 

Configuration on the ARA In-Flight Simulator. 
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3.5 EFFECTS OF NAVIGATIONAL ACCURACY AND THE "LEARNING 

CUR\^" EFFECT ON MISSION PLANNING 

To simulate realistic SPIFR conditions, the mission has 
to contain several typical flight-path segments, including 

• Climb, acceleration and cruise with airspeed retrimming. 

• Holding pattern. 

• Deceleration and descent. 

• Localizer and glide slope interception. 

• Approach and missed-approach go-around. 

Also, a realistic VOR- radial navigation should consist of 
at least once switching navigational stations in the "TO"- 
mode and of a leg in the "FROM"-mode. The above consider- 
ations roughly size the SPIFR mission simulation to a minimum 
flight duration of about 30 minutes and the geometry shown 
in Fig. 3-2. 

One problem associated with deciding the flight path 
geometry is the "learning curve" effect. The "learning curve" 
is the ability of a human being to improve his performance by 
taking advantage of past experience. Flying all missions along 
the same trajectory invokes memorization by the pilot, reducing 
the navigation workload to a level unrealistic for a SPIFR-type 
mission. To cope with this issue, additional flight path 
variants have been devised (Fig. 3-3, 3-4, 3-5) . All variants 
are of comparable structure and flight duration. 

The other problem associated with the decision of flight 
path geometry is navigational accuracy. Conclusions of the 
following discussion with regard to this issue have been imple- 
mented with the SPIFR missions of figures 3-2 to 3-5 and , as will 
be shown, they also contribute to post-f light flight-path re- 
construction accuracy improvement. 
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Figure 3-2. Variant I. 


Figure 3-3. Variant II. 



Figure 3-4. Variant III 


Figure 3-5. Variant IV. 


Figures 3-2 to 3-5. SPIFR Flight Path Variants. 
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The standard navig^ational inodes for GA are VOR/VOR, 
VOR/DME and DME/DME. At least two navigation stations are 
required to achieve a horizontal "fix” of the aircraft's 
position. With proper geometry any of these combinations 
can provide a fix; however the accuracy of the fix is subject 
to several factors. The accuracy requirements have been 
imposed by the Federal Aviation Administration (FAA) , and 
their numerical values appear in Ref. 11. 


~ ^VOR 


1.9° 


~ ~ .15% range or .1 mile: 

x\ i^jyLD 1 

whxchever is larger 


(3-34) 


These navigational errors are with respect to a single 
ground station . The position errors associated with a naviga 
tional mode have to be computed accounting for the Geometric 
Dilution of Precision (GDOP) effect. GDOP is an inaccuracy 
due to the nonperpendicularity of the lines connecting the 
aircraft with the engaged stations. 


Applying analytical geometry to the typical situation de 
picted in Fig. 3-6 and assuming that the two navigational- 



or the DME/DME Modes . 
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stations* errors are statistically uncorrelated/ v?e obtain; 

a =(l/s0) [aj + 02 ]^/^ (3-35) 

The 1/s 6 term reflects the GDOP effect. For angles 
between radials in the vicinity of 6 = 0“ or 0 = 180°, the 
position error becomes very large, becoming infinite in the 
limit. To improve position accuracy using two similar ground 
stations while flying a given leg, it is desirable that the 
stations be as nearly perpendicular as possible. For VOR/VOR, 
eq. (3-35) can be rewritten as, 

0 = - — 5^ (l+s^0)^/^ (3-36) 

/2 s 6 

For DME/DME, eq. (3-35) becomes 

0 = \/2 0_/s0 (3-37) 

R 

Nximerical values of eq. (3-34) and dependence of c^yOR/VOR 
2 

on the sin 9 suggest that this navigational mode 
is much less accurate than the DME/DME mode. For example, 
at a ^range of 50 miles from both stations and for 9 = 30° the 
VOR/VOR error is 2.71 miles, while the DME/DME error is 0.28 
miles and the results favour the DME/DME pairing at greater 
ranges. Based on this observation and on the feasibility of 
microprocessor-controlled sequential engagements of several 
DME stations, this technique will be employed to improve the 
flight path reconstruction accuracy. In particular, this 
accuracy improvement may be achieved by making use of redundant 
measurements, while applying the optimal Kalman filtering/ 
smoothing algorithm. 
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3.6 OPTIMAL SMOOTHING OF FLIGHT-TEST RECORDS AND FLIGHT- 

PATH RECONSTRUCTION 

One way to smooth flight test records is to pass the 
data through a filter, which chops off the high frequency 
content of the recorded information. A better way is to 
account for the particular system's dynamic characteristics. 
This can be done applying the extended Kalman filter algorithm. 

For post-flight analysis, even higher accuracy may be 
achieved by accounting for the "future" information. This 
improvement is obtained by using an optimal smoothing 
algorithm. An additional advantage of this algorithm is that 
it estimates flight path variables that have not been 
measured directly. Thus, smoothing and flight path reconstruc- 
tion are obtained via a single algorithm implementation 
(as in Ref. 12, 13) . For this application we need the system 
state eq. (3-1) , which constitutes a concise representation 
of eq. (3-2) to (3-13), 

X = f (x,u) + w (3-38) 

and the measurement equation, 

= h (x,u) + V (3-39) 

which stands for relationships of the type of eq. (3-14) to 
(3-17) . Equation (3-38) differs from eq. (3-1) by the addi- 
tional term w, which is referred to in the literature as 
"process noise". The vector v in eq. (3-39) is the "measure- 
ment noise". 

Equations (3-18) to (3-31) need not be used in the post- 
flight optimal smoothing and flight-path reconstruction be- 
cause the accelerations a^ are measured directly . Equations 
(3-2) to (3-17) constitute a kinematic model, as they do not 
reflect the dynamic mechanism by which a is actually produced. 
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The differential equations of the kinematic model (3-2) , 

(3-9) and (3-11) constitute the "state model" and the algebraic 
relationships (3-14) to (3-17) the "measurement model". Even 
without accounting for the a_ -producing-mechanism, the kinematic 

•“15 

model is nonlinear and high-dimensional. Thus, it is more 
efficient to tackle it in two steps. This is made possible by 

T 

the fact that the SPIER experimental setup records both [p q r] 

T 

and [<j) 0 4'] • The first step is to smooth these six measure- 
ments. Treating all six as state variables and using eq. (3-9) 
we may write:' 


STATE 
MODEL A 


r 


< 




p+tan 0 (s<|)*q+C(j>*r) 
C(j)*q — S(f)*r 
^(s(j)*q + c<|)*r) 


(3-40) 


MEASUREMENT/ = „ „ + „ 

MODEL A L -A A-A -A 


(3-41) 


The state vecto'r for model A is : 

= [p q r 4) 9 4)]'^ (3-42) 

The process noise vector (with n*, n* and n* random and unknown 

p q r 

angular acceleration inputs) is: 

w^ = [n* n* n* 0 0 0]"^ (3-43) 

-A p q r 
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The measxirement noise vector for model A is ? 


= [n n n n,] 

—A p q r (p d 


(.3-44) 


The measurement vector in (3-41) contains the measured values 
of X Thus, the observation matrix H. is an identity matrix. 

A • A 


Before elaborating on the optimal smoother algorithm imple- 
mentation based on eg. (3-40) and (3-41) , the kinematic model for 
the second step is now derived. We assume that the time 
histories, 

P(t), q(t), r(t); <j>(t), 0(t), ^(t) (3-45) 

and the associated matrices , 

Hg(t) , H®(t) , w(t) (3-46) 

are given, having completed the first step. The 6-component 
state vector for the next step is , 

Xg = [x^y^z^ u V w]^ (.3-47) 

and the 6-component input vector is, 

y\ y\. ^ pp 

u„ = [w w w (a -s9g) (a +c6s({)g) (a +cdc(pg) ] (3-48) 

“B Xj Zj ^ y ^ 

The input vector contains components of the true wind and 

accelerations, w_ and a . In this context, the actual values 
— X 

of these measured variables are interpreted as inputs and 
their measurement inaccuracies as process noise*: 


* Appendix A presents an improved wind model. 
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(3-49) 


= [0 0 0 n n n ] 

-B 

Unlike the first step, in which the x components have 
been smoothed optimally, this step reconstructs the 
components with eq. (3-2) and (3-11) constituting the state 
model B : 


STATE 
MODEL B 


= Hg(t) V + 


”ul fa -s0g 1 fn 

-N X ^ a 

/N 

= o)(t) V + a +c6s(f)g + n 

y a 

/V /\ 

w a +c0c<J)g n 

Z 


(3-50) 


Equations (3-14) to (3-17) plus VOR and DME measurement 
equations constitute the measurement. model B: 


V . 

' — axr ' 


, 2^ 2^ 2,1/2 ^ 

(u +v +w ) + n 


tan ^ (— ) + n 
u a 


MEASUREMENT 
MODEL B 


a. “1 /V, , 

tan (-) + ng 


(3-51) 


-"l ^ ^h 


"DME . 

SI 




VOR . 
sx 


tg' l(yj-y3i)/(xj-x^.)l + 
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where si symbolizes the distance or angle 6 

DME . ^ VOR . 

SI si 

being measured with respect to navigational station i. The 
measurement noise vector is: 

-B ^ "a ^h ”dmE^ ”dME2 *°* ^0R2*“^ (3-52) 

Estimates of measurement biases and scale factor errors 
may be obtained at the expense of significant increase in state 
vector dimension. Such an increase in dimension may affect 
not only the computing cost but also the computational 
accuracy. 

Examination of eg. (3-40) to (.3-51) shows that both models 
A and B are nonlinear . Thus the extended Kalman smoother 
algorithm has to be applied (Ref. 14) . This algorithm is 
implemented as a combination of forward- and backward-running 
Kalman filters . The extended Kalman filter algorithm con- 
stitutes an adaptation of the linear Kalman filter theory to 
nonlinear situations. It propagates the nonlinear dynamic 
model between measurements and utilizes a locally linearized 
model for the measurement updates. 

The following is the discrete formulation of the extended 
Kalman smoother algorithm, applied to the dynamic model of the 
system, which constitutes of the state model (eq. (3-38)) and 
measurement model (eq. (3-39)). The propagation of the esti- 

/N 

mated states x and of the state covariance matrix P between 
measurements, for forward filtering uses 


x(t) = f [x(t) ,u(t)] (3-53) 
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T 


^k-1 \-l 


(3-54) 


where Q is the process noise covariance matrix and $ is the 
transition matrix obtained after local linearization of eq. 
(3-38) into: 


X = Fx + Gu + Lw C3-55) 

In order not to create inaccuracies due to numerical differ- 
entiation, analytical derivation of the Jacobian: matrices. 

(F, G and L) has been carried out for both models A and B; 
this is doc;amented in Appendix A. The Kalman gain matrix 
for forward filtering is, 

where R is the measurement noise covariance matrix and H is 
obtained by local linearization of eq. (3-39) as 

^ (3-57) 


State and covariance updates account for measurements 
as 


X ( + ) 

“k 




x(t) + K r z 
k “k 


h. .(x(t) )] 
k ~ 


(3-58) 


P^( + ) = 


(-3-59) 


where x(t) is obtained by integration of eq. (3-53) 

to t, . 
k 


from t, , 

• k-1 
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The filter processing of the raw data renders the state 
estimates before the measurement update X]^(~)=^Ct) and after 
the measurement update the associated covariance 


matrices and The smoother algorithm uses this 

information as input and running backwards in time produces 


the improved estimates of the states and of the covari- 


ance matrix P, . . 

k/n 

state matrix F, : 


The first step is the computation of the 




( 3 - 60 ) 


The state matrix is used to calculate the state transition 
matrix The state transition matrix and the input covari- 

ance matrices render matrix A, ; 

k 


A, = P, (+) $?’ Pr^T (-) 
k k k k+1 


( 3 - 61 ) 


Using the input state estimates x^(“) and ^(+) and the 
associated covariance matrices Pj^(+) and along with Aj^, 

the smoothed and reconstructed states are obtained: 


X, , = X, (+) + A, [x, , - . - X, (-)] 

—k/n — k k — k+l/n —k+1 


( 3 - 62 ) 


k/n 


= p„ (+) 


f'’k+1/n 




( 3 - 63 ) 


This complete optimal estimation algorithm, which per- 
forms post-flight data smoothing and flight-path reconstruction 
has been coded in FORTRAN (Appendix B) and verified by applica- 
tion to a computer-generated SPIFR trajectory. 
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Examples of the optimal flight path reconstruction 
algorithm's application to the generic flight-test data 
records are given in Fig. 3-7 for a coordinated climbing 
turn flight segment of 60 seconds. Figure 3-7a) to f) pre- 
sent reconstructed measurements demonstrating both state 
variable reconstruction and improvement with respect to data 
corrupted by noise. The symbol convention used in these 
figures is: (+) for nominal, (Q) for corrupted, (V) for 

filtered and (A) for smoothed time histories. Line segments 
are used to link results but they do not suggest a functional 
relationship . 

Figures 3- 7a) and b) represent the optimal smoothing of 
the angular states. As may have been expected, the "deriva- 
tive" states (e.g., Fig. 3-7b) are noisier than the "integral" 
states (e.g.. Fig. 3-7a) . In a sense, this distinction is 
applicable to the airspeed versus aerodynamic angle measure- 
ments, which reflect the atmospheric turbulence effect. As 
follows from the translational submodel f oimiulation , to re- 
construct these measurements (e.g.. Fig. 3-7c) and d) ) , the 
states u, V and w are first estimated. The typical lag intro- 
duced by filtering is more apparent in some of the figures; 
it is then reduced by the smoother. The trajectory recon- 
struction is represented in Fig. 3-7e) , f) and g) . Note that 
optimal smoothing improves the filtered state estimates and 
also shrinks the position uncertainty ellipsoid. 
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Figure 3-7: Examples of application of the optimal flight path 

(cont.) reconstruction algorithm to the climbing turn 

pseudo-flight-test data. 
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4. 


PRELIMINARY FLIGHTS 


Flight test results are the important objectives of 
the SPIFR program. As the human operator is an integral 
part of the control and guidance loop. Pilot Opinion Ratings 
(POR) constitute important experimental results. Both the 
Cooper-Harper Rating (CHR) , which is a performance rating 
(Ref. 15) and the workload rating (M.I.T. scale. Ref. 15) 
are significant. As we debrief the evaluation pilot with 
regard to both the complete mission and to its specific 
segments, knee-pad-size versions of both scales and of the 
grading sheet have been prepared (Fig. 4-1) . 

To test the complete SPIFR-mission-simulation concept, 
a series of preliminary flights has been carried out. Its 
main objectives were to verify the realism of simulation of 
SPIFR regime environment, the in-flight configuration match- 
ing capability and the data acquision and reduction process. 

After extensive hangar checks of the aircraft system 
modifications, of the new navigation/communication package 
and of the onboard experimental setup, the proposed instru- 
ment tracks (Fig. 3-2 to 3-5) were flown - totalling to about 
10 flight hours. 

These preliminary flights have shown that the tasks 
appear to simulate SPIFR missions, which are realistic in 
both geometry and workload. Using the knee-pad-size POR 
scales and grading sheet the in-flight debriefing can be 
carried out without interfering with the mission. The in- 
flight configuration matching capability with regard to each 
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a) Performance POR Scale 


Figure 4-1: Knee-pad Versions of the Performance 

and Workload PORs and of the Evalution 
Sheet. 
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Workload Rating Scale 


WORKLOAD 

CATEGORY 


SATISFACTORY I 


DESCRIPTION OF CATEGORY 


Low LEVELS OF WORKLOAD/ SUCH THAT 
ALL TASKS ARE ACCOMPLISHED PROMPT- 
LY. Idle periods exist between 

TASKS . 


YES 


Is IT 

ACCEPTABLE? 


NO 


UNACCEPTABLE 


YES 


Is IT 
POSSIBLE? 


NO| impossible 


Phot Decisions] 


RATING 



YES 

ftaDERATE LEVELS OF WORKLOAD 


Is 

IT 


NO( ACCEPTABLE I . 

INDICATE THAT PROBABILITY OF ERROR 

5 

SAT IS FACTORY Y 


OR OMISSION IS LOW/ BUT IMPROVE" 


1 



HENTS ARE DESIRABLE. 

6 



Very high levels of workload 

INDICATE THAT THE PROBABILITY OF 
ERRORS OR OMISSIONS IS HIGH 

7 

8 
9 


Impossible to perform all opera- 
tional TASKS PROPERLY 

10 

1 


1 

b) Workload POR Scale 


Figure 4-1 : 
(cont . ) 


Knee-pad Versions of the Performance 
and Workload PORs‘ and of the Evalution 
Sheet. 
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EVALUATION SHEET 

MISSION VARIANT # 
CONFIGURATION # 

PILOT 

DATE 

SPEED RETRIMMING 
CHR 

WORKLOAD 

COMMENTS 

HOLDING PATTERN 
CHR 

WORKLOAD 

COMMENTS 

GLIDE SLOPE TRACKING 
CHR 

WORKLOAD 

COMMENTS 

OVERALL MISSION 
CHR 

WORKLOAD 

COMMENTS 


c) Evaluation Sheet. 

Figure 4-1: Knee-pad Versions of the 

(cont.) Performance and Workload 

PORs and of the Evalution 
Sheet. 
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of the priority configurations has been confirmed. The data 
collection and reduction process has been verified by com- 
parison of timings and directions of deflection of various 
controls reported by the safety pilot to those obtained by 
recorded data processing. 
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5. 


CONCLUSION 


This report siairanarizes the first phase of the SPIFR 
project, which constitutes an integrated theoretical and 
flight-test research effort, which addresses stability-and- 
control, avionics and human factor effects in single pilot 
IFR situations. The first phase activities were aimed at 
basic research system preparation and,, consequently, at 
conducting the first flight test series of the SPIFR four- 
year program. 

Most of the goals of the first phase of the SPIFR 
program have been achieved. The basic research system has 
been put together and successfully flight-tested, including 
the ARA aircraft modifications and the onboard digital data 
acquisition system. A modern navigation/commxinication 
system has been installed, and a new instrument panel has been 
designed to accomodate flexibility in introduction of addi- 
tional instrumentation and workload devices . The data collec- 
tion system has been built around the z-80 microprocessor. 

The microprocessor performs the analog channels sampling, 
preliminary processing and transfer of the data records to 
the digital recorder. The software required for these on- 
board manipulations has been developed, debugged and flight- 
tested. In parallel, the post-flight data preprocessing 
software and procedure development has been completed and 
tried out with actual in-flight recorded data. Mission plan- 
ning and experimental matrix design have been carried out 
accounting for navigational accuracy and the "learning curve 
effect" and for the amoun t-of-f light-hour s-constraint. Applying 
theoretical algorithms the aerodynamic configurations for the 
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SPIFR program have been obtained and implemented on the ARA 
aircraft. A preliminary flight-test series has been con- 
ducted to check whether realistic SPIFR conditions are ob- 
tained and to verify the in-flight configurations matching. 
These flight tests have confirmed that the SPIFR mission 
simulation is realistic both in geometry and in workload. 

During the second phase of the SPIFR project, the first 
flight series will be completed and the collected data will 
be analysed, including the subjective PORs. Finally, 
statistical regression analysis will be applied to render 
flying qualities criteria for Single Pilot Instrument Flight 
Rule operations. 

The structure of the research program as summarized in 
this report will render quantitative criteria with regard to 
the effects of airframe dynamic response, workload level, and 
pilot experience on the SPIFR flight regime. Furthermore, 
the ARA is now ready to conduct a broad range of additional 
flight experiments associated with single-pilot instrument 
flight. 
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APPENDIX A 


DERIVATION OF THE LINEARIZED VERSIONS 
OF THE SIMPLIFIED AND THE IMPROVED KINEMATIC MODELS 

A.l IMPROVED WIND MODEL 

The kinematic state model B (eq. (3-50) ) assumes that ideal, 
constant wind measurements are available along the flight 
path. Although we may disregard the high-frequency turbu- 
lence disturbances, it is difficult to obtain wind measure- 
ments along a flight path with an acceptable degree of re- 
liability. A solution is to adjoin a wind model to state 
model B, estimating its parameters along with Xg. A reason- 
able low-frequency wind model may constitute of a constant 
component and a linear variation with altitude, 

3w 

w (h) = w + 3 — (z -z ) (A-1) 

—I —I d II 

O I O 

where w^ is a constant wind vector at reference altitude 
° 3w 

-z_ and is a vector of slope of wind variation with 

altitude. Adjoining eq. (A-1) to eq. (3-50) , we obtain; 


4 7 




(A- 2) 



Carrying through the mathematical steps necessary to 
transfer the state variable derivative to the left-hand 
side, we obtain the state model B in the following form: 



(A-4) 
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The kinematic state model B of eq. (A- 2) to (A- 8) renders 
improved flight path reconstruction and an estimate of constant 
wind and of wind gradient along the flight path. 
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A. 2 LINEARIZATION OF THE SIMPLIFIED KINEMATIC MODEL 


To apply the extended Kalman filter algorithm the non- 
linear kinematic model has to be linearized. The linearized 
version of the simplified kinematic model has been derived 
analytically and is presented in this section. The result 
for state model A [eq. (3-40)] is; 
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Rearranging eq-. (3-50)' of state model B: 
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The linearized version of measurement model B [eq. (3-51)]: 
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Ao3 LINEARIZATION OF THE IMPROVED KINEMATIC MODEL. 


The improvement to the kinematic model elaborated in 
the first section of this appendix refers to state model B. 
The linearized version of (A-3) is: 
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where each 


stands for a 3x3 matrix: 
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APPENDIX B 


PROGRAM LISTINGS 

B.l ONBOARD ASSEMBLY PROGRAMMING 


The microprocessor prepares the data in block units. 

Each block unit is a memory buffer of 1024 data words 
(each data word contains two bytes or 16 bits) . For 38 
infoirmation channels, for example, taken every second such 
a block can be filled with 26-sec worth of data (plus 36 
dxnrany words: 38x26+36 = 1024). A data block is written into 
the digital cartridge recordwise. Each record contains 128 
data words, i.e., under noannal conditions eight records complete 
a block transfer. Occasionally, to make sure that no data 
is missed, a record may be written repeatedly onto the cart- 
ridge. Thus, the first task for the preprocessing software 
(Appendix C) is to reconstruct the original data blocks, 

8xX2 8"36 

each constituting of eight records of jg = 26 informa- 

tion-seconds . 

B.2 GENERIC SPIFR FLIGHT PATH AND IN-FLIGHT MEASUREMENTS 
SIMULATION (FORTRAN) 

This program creates a generic SPIFR mission trajectory, 
simulates the associated in-flight measurements and corrupts 
them with pseudo- random noise. Knowing the uncorrupted values 
of the measured variables, the algorithm for optimal smooth- 
ing and flight path reconstruction may be verified. 
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B.3 OPTIMAL SMOOTHING AND FLIGHT PATH RECONSTRUCTION 

ALGORITHM (FORTRAN) 

As demonstrated in the following listings, one of the 
key issues in optimal smoothing and flight path reconstruc- 
tion is computer storage management — in particular, between 
the forward and the backward passes over the measured data 
records. The smoothing algorithm, which consists of eq. (3-60) 
to (3-63) , requires knowledge of the state- vector before 
and after each measurement update and of the corresponding 
covariance matrices. For state model A, e.g., the state 
vector has six components. This means that following the 
filtering pass 84 values have to be stored for each measure- 
ment instant. A SPIFR mission simulation is about 30 minutes 
long and after preprocessing the measurement update interval 
is standardized to be 1 sec for all variables. Thus, the 
temporary storage facility has to "remember" 84x30x60 values. 
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V CDTCD 

A 1 TCTTyr 


ONBOARD ASSEMBLY (B.l) 

I ariiiv 

9 IrloTXPw 





a 


1 




il 


2 

5 


l^ION 8 SPIFFER 18.V.81 

U 


3 



tf)C REW, PUSHEUnWS, BLIHKIHG LIGHTS WORKING 

a 


4 

5 


SISPLAY HB10RY INCUSES 

u 


5 



TM>ES INSTAUES 

u 


6 



SATA AVERAGING IIPLQ1ENTES 

a 


7 

5 


SLOW CHMWUS AVERAGES AT CNT M 

a 


8 

? 


SHE TO INPLOtBRES AS SLOW CHAlOa 

a 


9 

s 


ASC a«mL ZERO REAS TWICE TO FIU 0PS4 RAH SLOT 

a 


10 



LEFT BY HOVING SHE TO SLOW QMWEL. 

a 


a 

i 


STIU AVSAGIHG OVER 12 FAST CNMMEU. 

u 


12 

1 


HAtS A BUTER OF 38 WGRSS (16 BITS WISE) 

ii 


13 

> 


INSTEAS OF 37 WGRSS. 

ii 


14 

9 


HAVE FQIR UGHIS INSTEAS OF TWEE 

ii 


IS 

5 


LISIT4 IS IN SYNC WITH UQTT3. 

ii 


16 



THE UGHTS COSING IS Ml NEW. 

ii 


17 




uiOOO 


18 


ate 

8000H 

U3000 


19 

fmi 

EQU 

300CH ;A0I!RESS OF A TO S CONVERTER 

U00C3 


20 

jfp 

EQU 

0C3H 

ii 


21 

ics 

EQU 

03BH 

UFFE3 


22 

IHT75 

EQU 

0FFE3H 

iiWS 


23 

UTff>QRT 

EQU 

OCSH ;LITE SISPLAY FORT IS PORT C J1 Iff 116 BOMS 

UOOC7 


24 

UTECTRL 

EQU 

0C7H ;CTRL PORT FOR J1 OF 116 BOARS 

ii 


25 

•,LITEPQRT EQU 

0E9H '.LITE SISPLAY PORT IS PORT B J2 OF 8004 

ii 


26 

iLITECm EQU 

OEBH ;CTRL PORT FOR J2 (ff 8004 

iiCOEI 


27 

J180O4 

EQU 

OE7H iCOHTROL OF 8255 J-1 

HOOE4 


28 

8 LTPQRT 

EQU 

0E4N ;M.TIHETW PORT A J-1 

iiOOB 


29 

PtBPGRT EQU 

0E5H ;PUSHHJrrON PORT B J-1 

iiBOOO 

ra 

30 


SI 

;N0 INTERRUPTS MIOWB) YET 

iiSOOi 

CD738A 

31 


CAU 

MTPORTA 58255 PORI A OF J2 OH 8004 

UB004 

CD21SS 

32 


CAU 

INITUSART 5 INITIM.ISE m USRT FOR PILOT TERKINM. 

iii007 

CD3787 

33 


CAU 

INITSEItt ;SET UP SSttPHORES ON AU TEN BUFFERS 

UBOOA 


34 


CAU 

INITRE 

iiOOOd 

CD4OS0 

35 


CMl 

FILLHEH 5 FIU NENORY WITH INTEGERS 0-10239 

iistno 

CD0480 

36 


CAU 

INITWR ;INniALISE BF^riNG POINTERS 

ii 


37 



5 OUW TB( SUFFERS EACH 2048 

ii 


38 



5 TO TAPE, 256 BYTES AT A TINE 

ii 


39 



5 OVER MS OVER AGAIN. 

ii 


40 



;1HE BUFFBiS ARE SESIGWTES BY 

ii 


41 



5 THE SICITS 0 TO 9. 

ii 


42 



? 

ii 


43 



5 OE POINTS TO TW LOCATION 

ii 


44 



5 TO K EMPTIES. 

ii 


45 



I 

ufiOiS 

CDUM 

46 


cm 

AUGN ;INITALISE T9511 

UJ^Xi 

CD2AM 

47 


CAU 

OK 

ii^i9 

U0090 

48 


LXI 

S,BlffFO ;SE PAIR POINT TO LOCATION TO BE EIPTIES 

UBOXt 

CD3S63 

49 


CAU 

SnHT ;5MBL£ TW IHTERRIPTS 

ii 


50 

BB-. 



iiMlf 

CD7687 

51 


CAU 

TSIBFTY 5 WAIT UNTIL BUFF® FUU 

UBm 

CDM80 

52 


Cttl 

WRITE •,BWf ANOTHER 256 BYTES TO TAPE 

ums 

CS5880 

53 


CAU 

UEBUFS 5 UPSATE THE INSICES USES 

ii 


54 



5 TO KEEP TRACK OF EWTYING THE TEN BUFFERS. 

ii 


55 



5 TH®E ARE THREE OF THSi, 

ii 


56 



; TWO POIHTWS MIS A COISITER. 

ii 


57 



? 

iUKiZS 

C31FS0 

58 


BB 

ii 


59 



» 

asm 

3A6186 

60 


UM 

FLAG 

64802E 

FEOO 

61 


CPI 

0 

aeodo 

C21F80 

62 


X 

BB 

^£^033 

3E0A 

63 


HVI 

A.IO 
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u803S 

326188 

64 

STA 

FLAG 


iiS03S 


65 

HVI 

A,'*' 


ii803A 

CM182 

66 

CMl 

X 



C31F80 

67 

J»> 

BB 


ii 


68 

;LAG: IS 

0 


it. 


69 

FILLffiH: 




F5 

70 

PUSH 

PSU 


m8041 

ES 

71 

PUSH 

H 



110090 

72 

LXI 

D^HFFO 

;BASE MHJRESS FUR FILLING IS BUTO 

ua045 

210000 

73 

ua 

H^O 

;CaMT STARTS -WITH 0 

asm 

7D 

74 

FELAG: HQV 

A,L 

;L0UX BYTE IHID ACC 

aeM9 

12 

75 

STAX 

0 

;SimE IT TO HB«RT 

iilMti 

13 

76 

IHX 

S 

;HOUE TO NEXT BYTE LOCAnON 

u£04B 

7C 

77 

HOV 

AP) 

;tPPER BYTE INTO ACC 


12 

78 

STAX 

B 

{STORE IT TO tarn 

ii80«> 

13 

79 

MX 

0 

{POINT TO HXr BYTE LOCATION 

iiS(ME 

23 

80 

IHX 

H 

{SIZE Of INTEGER UP BY 1 

iiSO« 

7C 

81 

HQV 

A# 

{Om FOR M UPPER BOMB 

uaoso 

FB8 

82 

CPI 

28H 

? 

um2 

C24880 

83 

X 

FILLAG 

{R?B{T IF XLOU UPPB{ BOUND 

iutes 

El 

84 

PDF 

H 


UMSi 

FI 

85 

POP 

PSU 


ujm 

C9 

86 

RET 



ii 
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iraUFS: 



iiaoss 

F5 

88 

PlBi 

PSU 


iia059 

ES 

89 

PUSH 

H 


iifiOSA 

CS 

90 

PUSH 

B 


iifiOSB 

2A6688 

91 

UU> 

ERSttlH 


iifiOSE 

010001 

92 

LXI 

B,2S6 

{256 BYTES QPYIED AT A TIKE 

iiaOil 

AF 

93 

XRA 

A 


iia0i2 

EM2 

94 

USX 

B 


iiBOM 

226688 

95 

SHLD 

B^IN 

{BiEittIH=EREmiN-2S6 

ii 


96 




ii 


97 



{IS XEHAIN >: 256 ? 

ii 


98 



• 

ii80i7 

» 

99 

XRA 

A 

{CARRY^O 

iifiOiS 

ED42 
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iiSOM 
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JP 
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ii 


102 



5 

ii 
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{C* NOT BWY 

ii 


104 



{ ANOTHER BLOCK OF 2% 

ii 


105 



{ FROH CU9iS4T EUFPX OF 2048 

ii 


106 



5 

iiaOiD 
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107 
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ii 


108 
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iiS070 

210008 

109 

LXI 

H,X48 

? 
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226688 

110 

su 

BSttIN 
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ii 


111 



1 

ii8076 

3A6888 

112 

LDA 
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{SUITCH TO NEXT EUFFX 

iiM79 

X 

113 
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A 

? 
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114 
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? 
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115 
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10 
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116 
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5 

iiAOSZ 

76 
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U.T 



ii 
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ii 


119 



{UE ARE NOU XYOHD TS4TH BUFFER 

ii 


120 
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ii 


121 



{ SUITCH TO BUFFER 0 

ii 
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? 

iiAD83 

3E00 

123 

IM 
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124 
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LL 


125 



5 

U 


126 
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127 
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ii 


128 



{ BEING ePTYHD 

ii 


129 



% 
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130 


LXI 

S/BUFFO 

5 BUFF 0 IS SIARTIHG LOCATION OF 

u. 


131 




5 aOCK 0 OR BUFFER 0 

ujtm 

ED537«fi 

132 


SEED 

ECURRBUF 

5 HOTE THAT D£ POINTS UHERE ECURRBUF POINTS 

iifiOtF 

C39D80 

133 


JK> 

EROOH 


u 


134 

ESU: 




ii 


135 




? 

U 


138 




5 UE M<E GOING TO BPTT A BUFFER 

u 


137 




5 2048 BTTES HII»B< IN COI^ IHM TtS 

U 


138 




5 PREVIOUS BUFFER. 

it. 


139 




5 

U6092 

Siam 

140 


LHLD 

ECURRBUF 

« 

iiMK 

010008 

141 


LXI 

B,2048 


iuon 

09 

1 « 


DM> 

B 


uXfm 

227488 

143 


SHJ) 

ECURRH7 


iiB09C 

EB 

144 


XCHG 


5 DE POINTING UHB<E ECURRBUF POINTS. 

a 


145 

BUON: 




iie090 

Cl 

148 


POP 

B 


iitm 

El 

147 


POP 

H 


U609F 

FI 

148 


POP 

PSD 


^^aoM 

C9 

149 


RET 



a 


ISO 

5 




a 


151 

URHEi 




ii 


152 




5 IHE ONLY ERROR MXOUED FOR NOU 

ii 


153 




5 IS TRYING TO URITE BEYOND EOT 

ii 


154 




5 URITE ON LEFT TAre OR RIGHT TAPE 

ii 


155 




5DB>0IDING on THE SEniNG OF TSU 

ii 


158 




5 TSU='L' or 'R'. 

ii 


157 




5 IF 00 OF Tl^ OR B<ROR ON ONE TM>E, 

ii 


158 




5 SUITCH TO ANOHS< Ttf>H 

ii 


159 




5 

uam 

F5 

180 


PUSH 

PSU 


UMA2 

£5 

181 


PUSH 

H 


iifiOAS 

C5 

182 


PUSH 

B 


iiSOM 

ES537888 

183 


sie 

TEIKIE 

5 SAVE DE PAIR n CASE (ff RETRY 

ii 


184 

? 

LXI 

H,TEIf>DE 


ii 


185 


CALL 

MNf >2 


iium 

388988 

188 


LDA 

TSil 

5 UNICH TtfE DO UE USE? 

iiSOAB 

FEW 

187 


CPI 

'L' 


aaodD 

C 2 C 2 B 0 

188 


JH2 

HRITR 


ii 


189 

yRITL: 




iiiCBO 

CD3481 

170 


CAU 

LCTUU 

5 IF YOU COffi TO EOT SUITCH TO NEXT UNIT 

ii 


171 

;««(«(«H0RE OH)E HERE»»»»»»»)»» 

ii 


172 

:«««««A£0UT SUITQUHG U)GIC»»»»>»» 

aa«3 

C8K80 

173 


JZ 

RE»L 


uem 

3ES2 

174 


nil 

A/R' 


HKB6 

328988 

175 


STA 

TSH 


ii 


178 

;««<««REIRMGniT LAST RECQfa) CIHTO RIGHT Ttf>E»»»»»» 

iom 

C3C280 

177 


JHP 

HRITR 

5 AM) REUNITE RECOM) ON RIGHT Ttf>E 

iitxm 

Cl 

178 

REIU.: 

POP 

B 


iiMW 

El 

179 


POP 

H 


uMCO 

FI 

180 


POP 

PSU 


iiMO. 

C9 

181 


RET 



ii 


182 

ERITR: 




iit/K2 

CK581 

183 


CALL 

RCIUU 

5 IF YOU COKE TO EOT SUITCH TO NEXT UNIT 

ii 


184 

5<<<<<<<N0RE CODE HERE»»»»»»»»»»»» 

ii 


185 

5<<<<<<<AE0UT SUITCHING L0GIC»»»»»»»>» 

UMCS 

CAD080 

188 


JZ 

REIUR 


atoa 


187 


WI 



uMCA 

328988 

188 


STA 

TSH 


u 


189 

5 <«««i£in»aaT usr record using»»»»» 

usm 

C38080 

190 


JHP 

URITL 

5 MS) REWRITE RECORD OH LEFT TAPE 

uMDO 

a 

191 

REIWC 

POP 

B 


umi 

El 

192 


POP 

H 


u60S2 

FI 

193 


POP 

PSU 


u8(H)3 

C9 

194 


RET 



ii 


195 

INITVR: 
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iiS0D4 

F5 

196 


PUSH 

uBODS 

E5 

197 


PUSH 

um> 

3EOO 

196 


m 

u£m 


199 


STA 

uBODB 

21000B 

200 


LXI 

i^DE 

224666 

201 


SHLD 

MSiSl 

3E4C 

202 


MI 

iiSOB 

326966 

203 


STA 

iiSOEi 

210090 

204 


UI 

iiSOEf 

227466 

205 


SWD 

iiSOEC 

110090 

206 


UI 

ujm 

El 

207 


POP 

asm 

FI 

208 


POP 

iiSOFl 

C9 

209 


RET 

ii 


210 

SBC56: 


iiKm 

S 

211 


PUSH 

ii 


212 



ii 


213 



ii 


214 



uS0F3 

62 

215 


nv 

iitOfi 

6B 

216 


nv 

aeoFS 

010001 

217 


Ul 

iiSOn 

PS 

218 


Vtfi 

U60T9 

ED42 . 

219 


OSBC 


54 

220 


NOV 

ufiOFC 

5D 

221 


NOV 

iiBOFD 

El 

222 


POP 

men 

C9 

223 


RET 

ii 


224 

LCIUFs 


ii 


225 



mon 

3E1B 

226 


MI 

mioi 

CD4162 

227 


CAU 

mi04 

3E26 

226 


MI 

mm 

CB4162 

229 


CMl 

mio9 

3E70 

230 


MI 

iifilOB 

CD4182 

231 


CALL 

iiSlOE 

3E31 

232 


NVI 

uBliO 

CM162 

233 


CAU 

iiSllS 

3E75 

234 


MI 

uSllS 

CM162 

235 


CAU 

iiSllB 

3E3S 

236 


MI 

iiSllA 

C04162 

237 


CAU 

BiiUO 

3E43 

236 


MI 

iiSUF 

CD4162 

239 


CMX 

iiS122 

3E11 

240 


MI 

iiS124 

CD4162 

241 


CAU 

iiB127 

CD5762 

242 


CAU 

U812A 

326268 

243 


STA 

mm 

CD5762 

244 


CMl 

mix 


245 


STA 

mi33 

C9 

246 


RET 

ii 


247 

LCTUU: 


mi34 

ED5B7866 

246 


LKD 

mm 

3E1B 

249 


MI 

m813A 

CD4162 

250 


CAU 

ufilSD 

3E26 

251 


MI 

iiBlSF 

CD4162 

252 


CAU 

mi42 

3E70 

253 


NVI 

mi44 

CD4182 

254 


CMX 

mi47 

3E31 

255 


MI 

mw 

CD4182 

256 


CAU 

iiBlAC 

3E64 

257 


HVI 


04162 

256 


CAU 


3E32 

259 


MI 

iiSiSS 

CS4182 

260 


CUL 

mi56 

S35 

261 


MI 


PSU 

H 

A>0 

EUHICHB 

K,2<m 

S^W 

A/l- 

TSU 

H, BUFFO 
a:ja!£tff 
S, BUFFO 
H 

PSU 


H 


H,D 

;BE <= BE - 256 
? 

L,E 

B^256 

5«L BE 

A 

?CMiRT=0 

B 

0;H 

;U - 256 

E,L 

;BE <= ». 


H 


;ffiITE Mi EOF KARK ON LCTU 

A, ESC 
BO 

A, '4' 

BO 

A/P' 

BO 

A/l' ^ADDRESS OF LCIU 
BO 

A/u' 

BO 

A/5' ;iKlTE FEB««K COTtm IS ASCII CW« 5 
BO 

A/C‘ 

BO 

A,BCI 

BO 

BI 

SAVE 

BI 

SAUE>1 


laPBE 
A, ESC 
BO 

A, 'S' 
BO 

A/P' 

BO 

Af-r 

BO 

Af'iT 

BO 

A,-2- 

BO 

A.'5’ 
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mSISA 

CMiaz 

282 


CMl 


3Bi 

283 


nvi 

uElSD 

CM1S2 

284 


CAU. 

uE160 

3ES7 

285 


HVI 

ujiia 

CM1S2 

288 


CMl 

U&16S 

205 

287 


HUI 

iiiW 

CM1S2 

288 


CMl 

uSliA 

□>5782 

289 


CALL 

MUao 

32M88 

270 


SIA 

m8170 

FE08 

271 


CPI 

iizm 

CA7S81 

272 


JZ 

uAIZS 

C33461 

273 


JBP 

ii 


274 

leXT: 


U&Vi 

010001 

275 


LXI 

iiSlTB 

CD7A82 

278 


CALL 

mUTE 

3EU 

277 


WI 

uSlSO 

CMiaz 

278 


CttL 

iiSI83 

□15782 

279 


CMl 

uAlS6 

BA3481 

280 


JC 

m8189 

328288 

281 


STA 

iiBlBC 

□15782 

282 


CALL 

iZSlSF 

SA3481 

283 


X 

mE192 

328388 

284 


STA 

iiilK 

3A8288 

285 


LSA 

iiSlPB 

F53 

288 


CPI 

m819A 

C8 

287 


RZ 

US19B 

ED5B7888 

288 


LKS 

iifilPF 

C9 

289 


RET 

a 


290 

RCHF: 


ii 


291 



iiMtC 

21B 

292 



iifilAZ 

CD4182 

293 


CAU 

uAlAS 

3E28 

294 


HVI 

iZSlAZ 

CSA182 

295 


CAU 

iiaUM 

270 

298 


WI 

iiaiAC 

CD412 

297 


CAU 

iiOlAF 

232 

298 


HVI 

uElBl 

CS412 

299 


CAU 

iOiB4 

3E75 

300 


INI 

mm 

CD412 

301 


CAU 

utm 

3E3S 

302 


INI 

mm 

CD412 

303 


CAU 

ii&lBE 

2A3 

304 


HVI 

izaico 

□M1B2 

305 


CAU 

uAlCS 

3E11 

308 


INI 

iiSlCS 

CD412 

307 


CMl 

iiAlCa 

CB572 

308 


CMl 

uAlCB 

328288 

309 


STA 

ZiSlCE 

C0572 

310 


CAU 

mBIBI 


311 


STA 

zzaioH 

w 

312 


RET 

u 


313 

RCIUi: 


uBlOS 

ED5B7888 

314 


LSED 

ZIE1D9 

3E1B 

315 


INI 

izsin 

CM12 

318 


CAU 

USIBE 

mjk 

317 


INI 

iiSIEO 

CM12 

318 


CAU 

mm 

3E70 

319 


INI 

mm 

CD4182 

320 


CAU 

iiSlEt 

3E2 

321 


INI 

iiSlEA 

□m2 

322 


CAU 

mm 

3E84 

323 


INI 

uAlEF 

CM12 

324 


CAU 

U81F2 

3E2 

325 


INI 

iZUFA 

CD412 

328 


CAU 

U81F7 

3E2 

327 


INI 


BQ 

A»-6- 

BO 

A/W 

BO 

A>ae 

BO 

B1 

SAV 

AQ 

HEICT 

LCIUU 

niHIS TO UKATIW TO BE BfTIED 

B,256 

SEW 

A^BCl 

BO 

BI ;READS0FF 

LCTUU 

SAVE 

BI ;iS» CR 

ICIUU 

SAV&l 

SAVE ;£nHER S OR F 

'S' 

;RETl»< Z SET ON 'S', Z RESET ON 'F' 

TBWE 


;«ITE AH EOF HARE ON LCTU 

A>ESC 

BO 

A,'V 

BO 

A,'p' 

BQ 

A/2' ;AI»SSS OF RCIU 
BO 

A>'u' 

BO 

A/S' ;«ITE FIiaARK CONMA IS ASCII OMi S 
SO 

A,'C' 

BO 

A>K1 

BO 

BI 

SAVE 

BI 

SAVEtl 


TBf>I£ 

A, ESC 
BO 

Af'S' 

BO 

A/P' 

BO 

A, '2' ;ADBRESS [7 RCIU 

BO 

Af'd' 

BO 

A, -2' 

BO 

A.'5' 


60 



USiF? 


^8 

CALL 

BO 


i^lFC 

3E36 

329 

KOI 

A, ’A' 


iiaiFE 

CMia2 

330 

CMl 

BO 


um\ 

3S7 

331 

IWI 

A,r 


ui203 

CD41&2 

332 

CMI 

BO 


amb 


333 

HUI 

A,EHB 


UJtSSA 

CB4iS2 

334 

CMI 

BO 



CI)57a2 

333 

CMI 

BI 


ujm. 

32&«a 

33& 

STA 

SAV 


item 

FE06 

337 

□>! 

ACE 


U8213 

U1962 

338 

JZ 

K)CT 


ami 

am. 

339 

JHP 

RCTUU 


u 


340 

nOCT: 



u 


341 



US POIHTS TO LOCAHOH TO BE BVTIED 

U8219 

OlOOOl 

342 

ua 

B,256 


ii£2iC 

CS74fi2 

343 

CALL 

SSO) 


iiKlF 

3EU 

344 

m 

A, XI 


ufiZZl 

CMia 2 

345 

CALL 

X 


ae22i 

0)5782 

346 

CMI 

BI 

; REM) S OR F 

ueZ27 

DAD581 

347 

X 

RCTUU 


u£m 

3?<^ 

348 

STA 

SAVE 


ujm> 

0)5782 

349 

CMX 

BI 

; KAD CR 

iiS2X 

D^l 

350 

X 

RCTUU 


UBZ33 

326388 

351 

STA 

SAVEfl 


iiS236 

%6288 

352 

LSA 

SAVE 

;EITHSi S OR F 

H8239 

FE53 

353 

CPI 

S' 

UOJRH UITH Z SET OH S, Z RESET ON F 

iiSZS 

C8 

354 

RZ 



ii£2X 

ED5B7888 

355 

LDED 

TaPBE 


ufi240 

it 

C» 

356 

RET 








it 


358 


OWWCTER OUTPUT ROUTIHE 

it 


359 

; CO OUTPUTS ONE CIMMCTS; FROH ACC TO TSWim 

a 


360 

: VIA THE USM^. 

ALL REGISTSiS MS) FLAGS tfS. 

a 


361 

; PRESERISS. US CW«ACTER 

IT OUTPUTS IS IN TK ACC. 

ii 






F5 

363 

BO: PUSH 

AAJIJIJLJLAJLMJLJ) 

PSU 


iiS241 

iiatZ 

CS 

364 

PUSH 

B 


iiS243 

4F 

365 

HOU 

C,A 

tSMS a REG 

ii 


366 

BOO: 



iii2M 

00 

367 

HOP 



iitze 

00 

368 

HOP 



uS2b6 

ISO) 

369 

IH 

S82S1A 

;GET USMTT STATUS 

aabt 

E601 

370 

AHI 

TXRDYA 

UKCE TRM49in READY FLAG 

u£24A 

CM482 

371 

JZ 

BOO 

UnT REM)Y 

aaze> 

00 

372 

HOP 



naze 

00 

373 

HOP 



aav 

00 

374 

HOP 



U6ZS0 

00 

375 

HOP 



iitzsi 

79 

376 

HOV 

A,C 

UlEADY TO TRAN9UT , RESTORE CHAR TO A REG 

US252 


377 

OUT 

D82S1A 

;SBfl) IT 

^i8254 

Cl 

378 

POP 

B 


aass 

FI 

379 

POP 

PSU 


ua256 

ii 

C9 

380 

RET 








ii 


382 


D««ACTS ItFUT ROUTIHE 

ii 


383 

\ BI ItrUIS OK CHAMCTER FROR TERHm IHTD ACC 

ii 


384 

: VIA TK USART. 

TK FLAGS M> TK ACC ARE QMCED. 

ii 


385 

; TK OWMCTER IT R»DS IS RETURHEB IH THE ACC. 

ii 


386 

5 IF HD TDEOUr OCCURS, THE C««T IS SET. 

ii 


387 

; IF TIKOUT OCOKS, THE CARET IS RESET. 

ii 


388 

: THE QMR !SM) IS RETUWED IH THE ACC. 

ii 











iiS257 

oo 

390 

BI: HOP 


y 

iussa 

C5 

391 

PUSH 

B 


ii£2S9 

OIFFFF 

392 

LXI 

B,OFFFFH 


it 


393 

BIO: 




61 



iiA2SC 


394 

OCX 

B 



78 

395 

nv 

A,B 


iiilSi 

B1 

398 

CRA 

C 


uizsr 

CA8F82 

397 

J2 

nreouT 


ii£2iZ 

NED 

398 

» 

S82S1A 

;Gn USMT STATUS 

u62M 

E802 

399 

MI 

RXRDYA 

;CHE£X RECIEVER REMIT 

umb 

CA5C82 

400 

JZ 

BIO 


Him 

DBEC 

401 

n 

06251A 

;GET CHAR 

ujtm 

37 

402 

STC 



iJAW 

3F 

403 

ac 



Him 

Cl 

404 

POP 

B 


uA26E 

C9 

405 

RET 



uXib! 

00 

408 

TIHEaUT: NOP 



Hi270 

37 

407 

SIC 



mS271 

Cl 

408 

POP 

B 


uezn 

C9 

409 

RET 



448273 

78 

410 

HIT 



U 


411 

SBS: 



448274 

lA 

412 

Lom 

0 


448275 

CD4182 

413 

CALL 

BO 


448278 

13 

414 

DOC 

0 


448279 

OB 

415 

OCX 

B 


44827A 

78 

418 

KM 

A,B 


4482TB 

B1 

417 

ORA 

C 


44827C 

C27482 

418 

JKZ 

SS<0 


44827F 

C9 

419 

RET 



u 


420 

STATUS: 



448280 

f5 

421 

PUSH 

PSU 


448281 

ES 

422 

PUSH 

H 


448282 

21FC89 

423 

UI 

H^AT 


448285 

3E18 

424 

IWI 

A^ESC 

;START ESCAPE SEOSHC! 

448287 

CD4182 

425 

cm 

BO 


44828A 

3ESE 

428 

>WI 

A,-*' 


44828C 

CD4182 

427 

CALL 

BO 


ui2BF 

3E11 


IWI 

A^OCl 


448291 

CD4182 

429 

cm 

BO 


448294 

CD5782 

430 

CMJ. 

BI 

;»TESC 

428297 

CD5782 

431 

CALL 

BI 

;£AT BACLSLASH 

44829A 

CD5782 

432 

CMl 

BI 

;BYT£ 0 

44829D 

CD0B88 

433 

cm 

CO 


4482A0 

CD5782 

434 

CALL 

B! 

^ 1 

4482A3 

CD0B88 

435 

CALL 

CO 


4482M 

CD57S2 

438 

CALL 

BI 

;BTTE2 

4482A9 

CIKSSS 

437 

CALL 

CO 


4482AC 

CD5782 

438 

cm 

BI 

;BTTE 3 

4482» 

CD0B88 

439 

cm 

CO 



CD5762 

440 

cm 

BI 

;BYTE 4 

44^ 

CD0B88 

441 

cm 

CO 


44838 

C05782 

442 

cm 

BI 

;BYTE5 

4482BB 

CD0B88 

443 

cm 

CO 


4482BE 

CD5782 

444 

cm 

BI 

;BTTE 8 

4482C1 

CD0B88 

445 

cm 

CO 


4482C4 

CD5782 

448 

cm 

BI 

;GET CR 

4482C7 

C00B88 

447 

cm 

CO 


4482CA 

El 

448 

POP 

H 


4482CB 

FI 

449 

POP 

PSU 


4482CC 

C9 

450 

RET 



ii 


451 

LCIUST: 



4482CD 

F5 

452 

PUSH 

PSU 


ii62CE 

3 

453 

PUSH 

H 


4482CF 

3E1B 

454 

NVI 

A^ESC 


4482S1 

CD0B88 

455 

cm 

CO 


4482B4 

3E28 

458 

NVI 

A/V 


448208 

CD0B88 

457 

cm 

CO 


448209 

3E70 

458 

IWI 



448ZDB 

CD0B88 

459 

cm 

CO 



62 



umi 

3E31 

460 


INI 

A.'r 


umi 

CD0I88 

461 


CALL 

CO 


uim 

TESt 

462 


HVI 

A/*- 


ii&2E5 

CD0B88 

463 


CALL 

CO 


um^ 

211 

464 


IM 

A, DCl 


iiSm 

CDC^ 

465 


CAa 

CO 


4^S2£D 

C05782 

466 


CALL 

BI 

;ESC READ 

iiS2F0 

CD5762 

467 


CALL 

BI 

;BACXSLASH READ 

iifi2F3 

CS57S2 

468 


CMl 

BI 

READ 

iim6 

CD5782 

469 


CAL 

BI 

;DBII2 CODE DIGIT R^ 

u£2!9 

C057J2 

470 


CALL 

BI 

;BYTE 0 READ 

uS2FC 

CD5762 

471 


CALL 

BI 

;6YTE 1 READ 

uSSS? 

05782 

472 


CALL 

BI 

‘,6YTE 2 READ 

UXXIZ 

05782 

473 


CALL 

BI 

;CR READ 

mS305 

El 

474 


FOP 

H 


u63M 

FI 

475 


POP 

PSH 


m«307 

C9 

476 


RET 



a 


477 

? 




u 


478 

1 


D2AY ONE 

NILLISECOH) 

u. 


479 

% 




u 


480 

Oins: 




uaaoa 

C5 

481 


PUSH 

B 


U8309 

F5 

482 


PUSH 

PSH 


iiesatt 

019800 

483 


LXI 

6,152 



OB 

484 

OUfiO: 

XX 

B 


ii£X£ 

78 

485 


m 

A,B 


uXX! 

B1 

486 


ORA 

C 


US310 

C20083 

487 


JKZ 

Dinso 


4iS313 

FI 

488 


POP 

PSU 


40314 

Cl 

489 


POP 

B 


40315 

C9 

490 


RET 



OOOIB 


491 

ESC 

EQU 

1» 


OOOOD 


492 

CR 

EOi 

(HM 


OOOED 


493 

S8251A 

EQU 

OEDH 


ooob: 


494 

08251A 

EQU 

OECH 


440002 


495 

fO«DYA 

EQU 

02H 


uOOOl 


496 

TXROYA 

EQU 

OlH 


44000A 


497 

LF 

EQU 

OW 


440005 


498 

BH 

EQU 

OSH 


440006 


499 

AO 

EQU 

06H 


440011 


500 

DCl EQU 

IIH 



40316 

F5 

501 

CHIRl: 

PUSH 

PSU 


40317 

3E74 

502 



A,07«4 


40319 

B3DF 

503 


OUT 

0K4I 


4031B 

210 

504 


IWI 

A,TLOU 


40310 

0^ 

505 


OUT 

ODDH 


0631F 

3EZ7 

506 


IWI 

A,THISI 


40321 

030 

507 


OUT 

ODDH 


40323 

E3 

508 


XTHL 



40324 

E3 

509 


XTHL 



40325 

FI 

510 


POP 

PSU 


40326 

C9 

511 


RET 



uS3S7 

F5 

512 

CMIRO: 

PUSH 

PSU 


u832A 

236 

513 


IWI 

A,036H 


4032A 

B3DF 

514 


OUT 

ODFH 


4032C 

3E0A 

515 


IWI 

A,0AH 


JJJCOS 

D3X 

516 


OUT 

ODCH 


ufi330 

3EOO 

517 


IWI 

A,OCH 


;jAW 

D30C 

518 


OUT 

«!CH 


U&334 

Q 

519 


XTHL 



iJJtXK 

a 

520 


XTHL 



/JX30A 

FI 

521 


POP 

PSU 


ii8337 

C9 

52 


RET 



IL 


523 

STINT: 





F5 

524 


PUSH 

PSU 


40339 

S 

525 


PUSH 

H 



63 



PUT 'JJP BREAK' INSI. AT IOCS INT75,INT75+i,IHT7S+2 


u 


528 



u 


H7 

? 


u 


528 

? 


44A33A 

3B3 

529 


nvi 

;JAW 

3£3FF 

530 


STA 


21^83 

531 


LXI 

£48342 

22E4S 

532 


SHLS 

u 


533 



46 


534 

1 


IL 


535 

? 


448345 

3E03 

538 


WI 

a 


537 



u 


538 



£48347 

S3S7 

539 


OUT 

£4 


540 

9 


U 


541 



a 


542 

5 


£4^9 

ED46 

543 


no 

44834B 

El 

544 


POP 

44834C 

FI 

545 


POP 

44 


548 

1 


LL 


547 

% 


IL 


548 

? 


44834D 

S 

549 


£I 

44834E 

C9 

550 


RET 

U 


551 



U 


552 

5 


U 


553 

1 


uB3^ 

00 

554 

BREAKS 

HOP 

£48350 

F5 

555 


PUSH 

448351 

B 

558 


PUSH 

£48352 

C5 

557 


PUSH 

448353 

B 

558 


PUSH 

44 


559 

« 


£48354 

3A6188 

580 


LDA 

U8357 

3D 

581 


OCR 

£48358 

328188 

582 


STA 

ii 


583 

? 


iU35B 

3EFF 

584 


WI 

u835D 

S3E8 

585 


OUT 

uOSf 

E05B5788 

588 


LOB) 

iJJOM 

CD4A87 

587 


CALL 

u. 


588 

? 


£4 


589 

5 


44 


570 

5 


£48366 

CSC383 

571 


CALL 

U 


572 

1 


IL 


573 

5 


a 


574 

1 


£48369 

3A5E88 

575 


LOA 

jjxvr 

FE04 

578 


SI 


C27483 

577 


JKZ 

448371 

CS2484 

578 


CAU 

U 


579 

H0T4S 


U 


580 

5 


Li 


581 

? 


U 


582 

5 


u 


583 

5 


448374 

3ASE88 

584 


LOA 

U8377 

FB)9 

585 


SI 

£48379 

C2A783 

588 


JHZ 

ii 


587 

5 


44837C 

213400 

588 


LXI 

44837F 

W 

589 


SAD 

448 ^ 

5D 

590 


MOV 

£48381 

54 

591 


HQV 


A^Jir 

MTS 

H,ER£tf 

IKTTSfl 

snp S214 CtMIROCHA 

A, OSH -^n 7^ FOR NOSE 0 

;BIT 0 TO 3 SEFIlffi IHTERRIFT PRIORIRT 
;BtT 0 TO 3 Sn TO 3, BMBLE 2 TO 0 ONLY 
007H ; SBffi TO 8214 

PUT ZaO IH IHTERRIPT HOSE 0 


H 

PSU 

TU« OH IHTQSUPT SYSTEM 


COKE HERE OH TIMER IKTERiaPT 


PSU 

H 

B 

S 

FUC 

A 

FUC 

A,OFFH OUTPUT OF 

0E8H ; ZS» UDLTS 

SAVESE ;R£SIOR£ BUFFBi POINTS TO BE PAIR 

TSTFUU, 5 IS BUFFS EMPTY 

U CNT)^.AHS. CNT<°9 RSS FAST OWIS AM) STORE 

FAST ^CQLLST FAST SATA 

S CKT < 4 REAS SUM CHAHeiS 

Off 

4 

N0T4 

SU)H 


S CMT=9 REAS TDE MS SUN 0M6 

CUT ; 

9 ; 

HOT? ; 

H,2»28 

S 24Q6 TO SE PAIR TO POINT BEYOM) 

ifl 

S^ :PUT M. N IM 


64 




C9CA£i 

592 


cfa 

DIS>tAY 

|IF THS5E IS TW»IG PAIR DISPLAY iCTQRY 



593 


□tti* 

l^BUFS 

;THER£ ARE ISO BIS^ POIHTSIS MS COJKTER 

ii 


594 




5 TO UPDATE 

iJAVkA 

CBS78S 

595 


CAa 

UCU 

;nc THE CLOCK 

US3SB 

CMm 

596 


CAU, 

FLIP 

^TOGGLE UTE 3 

iiAVLf 

CD7M8 

597 


aa 

AVG 


iiS39t 

CS^ 

598 


CALL 

ums 


ut394 

CD47SS 

599 


cm 

RIHIS 


ii83»7 

S53S7U 

600 


SUED 

SAUEDE 


ii6M 


601 


XBA 

A 


amc 

D3ES 

602 


OUT 

<£8H 


aa39E 

CW785 

603 


CMl 

STATE 


u£3Al 

a78U 

604 


CttL 

IKTWSIG 


iiA3A4 

C3B783 

605 


JHP 

NOISP 


a 


606 

? 




u 


607 

H0T95 




ii 


608 


? 



ui3» 

OffASa 

609 


CALL 

AUG 

;AI£RAGE FAST OMMELS 

u£3M 

cc3sas 

610 


CALL 

UINTS 

^UPDATE IHTERRUPT COUNT 

ii 


611 

i 




iiS3M 

04785 

612 


CALL 

RIHIS 

;RESe IHTSiRUPT CQUKI UH» >ECESS«Y 

iitSX 

AF 

613 


XRA 

A 

;im OUTPUT OF 

US3B1 

BS8 

614 


OUT 

(£8H 

5 nWUOLTS 

ii 


615 

y 




ii 


616 

? 




ufi3B3 

09785 

617 


CMX 

STATE 

; PLAY ICTH PBS + UTES OH CONTROL PM4EL 

iixm 

07886 

618 


CALL 

DmODIC 

;UKK FOR FOR TUO DIGH PAIR 

ii 


619 

HQOISP: 




iiJ^ 

3£03 

620 


IWI 

A,03N 


ttflSBB 

S3D7 

621 


OUT 

(ffiTH 


i483BS 

U 

622 


PCP 

0 


uS3BE 

Cl 

623 


P(P 

B 


ii^ 

El 

624 


POP 

H 


^t83C0 

n 

625 


POP 

PSU 


iUXi 

FB 

626 


El 



;jAqP9 

C9 

627 


RET 



ii 


628 

FAST: 




iJSi^ 

3E00 

629 


MI 

A,0 


iiXXS 

C&618S 

630 


CALL 

MICO 


;jjnrA 

CSEB84 

631 


CALL 

STORE 


ii 


632 

5 




;jjnr« 

3E00 

633 


MI 

A,0 

;DELE CmUt) QMMEL . 

jJAVA 

CS6185 

634 


CMl 

MCO 

; READ MIC CHAtte. 


0SBB4 

635 


CALL 

STORE 

; PUT INBUFFS RMi 

ii 


636 

5 




ufi3S3 

3E05 

637 


MI 

A^ 

;TffiTADOT QBMiEL 

uB3D5 

06185 

638 


CALL 

M)CO 

; READ ADC CHAMSL 

U63M 

OEB84 

639 


CMl 

STORE 

; PUT IN BUFFER RM! 

ii 


640 

y 




iitsait 

^7 

641 


MI 


^-HORIM. ACCEL CHAWa 


CS618S 

642 


CALL 

MICO 

; ISM) ADC CHM4EL 

ae3s> 

OSB84 

643 


CMl 

STORE 

; PUT IN RM1 affFER 

ii 


644 

y 




H63E3 

3E08 

645 


MI 

A, 8 

^ELA-ROOLL WSEL 

jiATP^ 

CD618S 

646 


CALL 

MXO 

; RSID MIC CHWe. 

U63E& 

OEB84 

647 


call 

STORE 

; PUT IN RAN BISTS! 

ii 


648 

y 




US3EB 

SD9 

649 


MI 

A, 9 

;DELR-PEDALS CHAMCL 

aesED 

CB6185 

650 


CMl 

MICO 

; READ ADC CWNKa 

iim 

□£884 

651 


CALL 

STOI£ 

; PUT IN RMI BlffPS 

ii 


652 

% 

y 




UB3F3 

3E0B 

653 


MI 

A, 11 

;BETA-SI1£SLIP CHM»a 

iiB3FS 

CD6185 

654 


CALL 

MICO 

> READ AX OWHEL 

UB3F6 

□SB84 

655 


CALL 

STORE 

; PUT IN RAN BUFFER 

ii 


656 

y 




uasB 

3E0D 

657 


MI 

A, 13 

U>-ROa RATE CHMSL 


65 



ii£3FS 

CD618S 

6S6 


CALL 

AKO 

; REAO ADC CHMMEL 

iijm) 

CDEB84 

659 


CAU. 

STORE 

; RUT IN RMl BUFFS! 

U 


660 

1 




uM03 

3HS 

661 


HVI 

A, 14 

;R-YAH RATE CWMIEL 

mM05 

CM185 

662 


CALL 

MCO 

; REAO AOC QMWEL 

mM08 

CDEB84 

663 


CAU 

STORE 

; PUT INRMi BUFFS! 

u. 


664 

\ 




iiMOB 

3ECF 

665 


HUI 

A, 15 

;HY-LATERAL ACCEL OWKL 

uMOC 

CM18S 

666 


CML 

MCO 

; 2M)M)CCHM£L 


CDEB64 

667 


CttL 

STORE 

; PUT IN RAH BUFFS! 

u, 


666 

5 




uM13 

3E15 

669 


HOI 

A, 21 

;NX-LONGITUOINM. ACCU CNMIS. 

iiMlS 

OMIB 

670 


CAU 

AOCO 

; REAOAXCHMOiL 

iia4U 

CDEB84 

671 


CAU 

STORE 

; PUT IN RM4 BUFFS! 

a. 


672 

5 




uMVt 

3E19 

673 



A^ 

;ALPNA-MGLE OF AnACK CHAIte. 

iiMlO 

CMias 

674 


CAU 

AOCO 

; REAO ADC 0«M<EL 

uM20 

CDEBM 

675 


CAU 

STORE 

; PUT IN RM4 BUFFER 

uM23 

C? 

676 


RET 



u. 


677 

SLOU: 




it 


676 

? 




uMH 

CD7E8S 

679 


CAU 

WE 

;0«E DISTANCE 

iiMV 

CKB&4 

660 


CUL 

STORE 

; PUT IN BUFFER RM 

it 


661 

5 




uMlti 

3E01 

662 


IWI 

A,1 

;DELT-TS!OrrLE WM)L£ 

iiMTS, 

CMias 

663 


CAU 

AOCO 

; R^ ADC CHMtiEL 

uMS 

CDESM 

664 


CAU 

STORE 

; PUT IN RMI BUFFS! 

a 


665 

1 




iM3Z 

3E02 

666 


WI 


;0ELF-FLAP LSIS! CHMWEL 

uMM 

COiiSS 

667 


CAU 

AOCO 

; READ AOC QM«EL 

uM37 

CDES&4 

686 


CAU 

STORE 

; PUT IN RMI SUFFER 

U 


669 





iiMSti 

203 

690 


IWI 

M 

;DELET-ELBMTOR TRIH C»M«a 

uMX. 

CD&ias 

691 


CAU 

AOCO 

; READ ADC QMNNEL 

uMS 

am4 

692 


CAU 

STORE 

; PUT IN RM BUFFS! 

ii. 


693 

« 




uM42 

3E04 

694 


NVI 

A, 4 

;THETA-PITCN ANGLE CHMWEL 

uM44 

CDilBS 

695 


CUL 

AOCO 

; REM)AXCIM«a 

uXM 

CDEB84 

696 


CML 

STORE 

; PUT IN RAH BUFFER 

ijt 


697 

? 




mM4A 

206 

696 


WI 

A|6 

;V-mXin CHMOEL 

iiMAC 

CD6185 

699 


CMl 

AOCO 

; READ MIC 0«NNa 

iiMff 

C2B64 

700 


CMl 

STORE 

; PUT IN RM4 BUFFS! 

ii 


701 

5 




ii£452 

3E0A 

702 


HOI 

A, 10 

;PSH&V>ING MCU OMm 

iiMS4 

COiUS 

703 


CAU 

AOCO 

; READ MC CHOiNU 

iiMS7 

0>EBM 

704 


CAU 

STORE 

; PUT IHIM4 BUFFS! 

ii 


705 

? 




ii84M 

3EK 

706 


IWI 

A, 12 

;PHI-ROU MCIE QM«U 

iiSiSC 

CD6185 

707 


CAU 

AOCO 

; READ AX DMOiEL 

iiA«F 

C2BM 

706 


CAU 

STORE 

; PUT IN RAH BUFFER 

ii 


709 

? 




ii8462 

210 

710 


IWI 

A,16 

limr-RUXS! TRIH Q6MCL 

iiM64 

CD6iaS 

711 


CAU 

AOCO 

; REAO AX dWINU 

iiMi7 

CDEB84 

712 


CAU 

STORE 

; PUT INRMt BUFFS! 

ii 


713 

? 




iiMiA 

3E11 

714 


IWI 

A, 17 

;mAT-AIL5!0N TRIH CWtEL 

iiMiC 

CDilfiS 

715 


CMl 

m> 

; RSU) AX CWMEL 

iiM6F 

om4 

716 


CMl 

STORE 

; PUT IN RMI SlffFS! 

ii 


717 

5 




iiM72 

3E12 

716 


IWI 

A, 16 

;DUE-ELSIATOR POSITION DtMQ. 

ii6474 

061S5 

719 


CMl 

MCO 

1 READAXQMOEL 

iiM77 

ami 

720 


CMl 

STORE 

; PUT IN RMI BUFFS! 

ii 


721 





iifi47A 

3E13 

722 


HOI 

A, 19 

;DaT-TM!DTTLE POSTION CHMKL 

iiMTC 

CD6185 

723 


CMl 

MCO 

: READ AX DVMEL 


66 



inm 

QEBM 

724 



STCRE 

; PUT IH RAH 810ER 

a 


725 





uim. 

3E14 

726 


mi 

A, 20 

;DELF-FLM> POSIYIQN OWME 

uJMM 

csiias 

727 


CALL 

AOCO 

; READ AK Cmwa 

uMa 

CI£B84 

728 


CAa 

STCRE 

; PUT IN RAH SOTS 

u 


729 

$ 




iiMtti 

3Eli 

730 


mi 

8.22 

;DEU-AILSON POSITION OMtlEL 

iiuec 

mm 

731 


CALL 

MICO 

; READ AX OMMEL 

iiMSr 

CSEB84 

732 


CMi 

STORE 

; PUT IN RAN SUFFER 

ii 


733 





uM92 

3E17 

734 


mi 

A, 23 

;DELR-RUDDS POSITION OWMa 

HM94 

miss 

735 


CALL 

ADCO 

; READ AX OWWa 

asm 

CDEBM 

736 


CALL 

STORE 

; PUTINMKSUFFS 

u 


737 





uAm 

3E18 

738 


mi 

A, 24 

;N1L0C-N1 LOCAUSER 0M4EL 

ii349C 

CD6185 

739 


CMi 

ADCO 

; REM) AX OMie. 

US49F 

0084 

740 


CALL 

STORE 

; PUT IN RAH SlffFER 

ii 


741 

» 




uMta. 

3E1A 

742 


mi 

A, 26 

;ALPHM>-PORT ALPW CHAWa 

Him 

C861S5 

743 


CMX 

MICO 

; READ AX OMte. 

iiiW 

C2ES84 

744 


cm 

STORE 

; PUT IN RAH SUFFER 

ii 


745 





iiMM 

3E1B 

746 


mi 

A, 27 

;ALPiMS-STMiBOARD ALFW CWMEL 

iiMAC 

CU18S 

747 


CALL 

MCO 

; READ M)C Q«Wia 

u&W 

CDEB84 

748 


CALL 

STORE 

; PUT IN RM) SOTS 

ii 


749 

> 




iiMB2 

SIC 

750 


mi 

A, 28 

;LOCnL-HLS L0CALI2S QSMEL 

iifi4M 

CS818S 

751 


cm 

AXO 

; READAXQW4EL 

iiMB7 

CSEB84 

752 


Oil 

STORE 

; PUT IN RAH SOTS 

ii 


753 





iiMBA 

SU 

754 


mi 

A>29 

;GSmS-HLS GLIDE SLOPE CWMEL 

iiSiSC 

CSiiSS 

755 


CMl 

ADCO 

; iEAD AX CWMEL 

iiM^! 

CSEB84 

756 


CALL 

STORE 

; PUT IN RM< SOTS 

ii 


757 

5 




uM2 

SIE 

758 


mi 

A.30 

;L0CN2-N2 LOCALIZS CHAMEL 

ii64C4 

0)8185 

759 


CALL 

ADCO 

; AX CWMEL 

iiMC7 

0084 

760 


CALL 

STORE 

; PUT IN RMISUFS 

ii 


761 





iiMGA 

SIF 

762 


mi 

A^ 

;IDELF-FLM> COWAND QWIEL 

iiMGC 

CS818S 

763 


CALL 

MICO 

; iCSDMICCWMEL 

ii&4CF 

CSES84 

764 


CMl 

STORE 

; PUT INRAKSOTS 

ii 


765 

» 




iiMB2 

CD8385 

766 


CALL 

DIGH 


iiMS 

CIEE84 

767 


CML 

STORE 

; PUT n RM1 SOTS 

ii 


768 





iiMSS 

cssfas 

769 


CALL 

DICLI 

^GHTS 

iiMDB 

CSES84 

770 


CML 

STORE 

; PUT n R«l SOTS 

ii 


771 

1 




iiMBE 

CS8DS 

772 


CML 

DIGHO) 

;NQiE SnCNES 

iiMEl 

CSEB84 

773 


CML 

STORE 

; PUT IN RM4 SOTS 

ii 


774 

5 




ii5«4 

CDTSaS 

775 


CALL 

DIGTn 

;TBE 

ii84E7 

CSS84 

776 


CALL 

STORE 

; PUT IN RMI SOTS 

iiMEA 

C9 

777 


RET 



ii 


778 

STORE: 




ii 


779 





ii 


780 





ii 


781 

» 



TME CQKTSTS OF HL RESISTS 

ii 


782 

? 



STORE AT DOUBLE BYTE POINTED 

ii 


783 

5 



TO BY DE REGISTS. 

ii 


784 

? 




iiS4EB 

F5 

785 


PUSH 

PSU 


iiMEC 

7B 

786 


nv 

A,L 


iiMB 

12 

787 


STAX 

D 


iiMEE 

13 

788 


nx 

D 


iiMEF 

7C 

789 


m 

AM 



67 



iMfO 

12 

790 


STAX 

S 

uMn 

13 

791 


INX 

0 

UM?2 

FI 

792 


POP 

PSU 

UMn 

» 

793 


RET 


li 


794 

5 



U 


795 

? 



ii 


794 

ITBUFS: 



U 


797 

5 



U 


798 

? 



ii 


799 

4 



a 


600 

4 


TlSiE ARE tUO PQIHTERS 

ii 


801 

4 


A» OPC COMTER 

ii 


802 

« 

> 


TO BE UPDATED l«B4 ClRRQiT 

ii 


803 

? 


BUFFER IS FUa. 

ii 


804 

5 



ii 


805 

y 


FWICHB IS FROH 0 TO 9 

ii 


804 

5 


AH) IWICATES THE CU!RB4T BUFFER 

ii 


807 



BEING FILLED 

ii 


808 

5 



ii 


809 

? 


SAVE POINTS TO THE BYTE OF 

ii 


810 

5 


THE CURRENT BUFFER TO BE FILLED . 

ii 


811 

5 



ii 


812 

? 


RSttlN CONTAINS THE NUMBER 

ii 


813 

5 


OF UNniLED BYTES IN aj94£HT BUFFER 

ii 


814 

5 



U84F4 

F5 

815 


PUSH 

PSU 

ii&4F5 

B 

814 


PUSH 

H 

UB4F6 

C 

817 


PUSH 

B 

ii64F7 

2ftS9S8 

818 


IHLD 

RSttlN ; 

UMFA 

014COO 

819 


UI 

B,BYTPERSEC ;BYmRSEC BYTES FILLED PER 

UMFD 

AF 

820 


)(RA 

A ;CARRY°0 

iiB4FE 

EM2 

821 


DSK 

B 

mASOO 

22S9S8 

822 


SHLD 

tS)«lIN ^IH=RS4AIN-BYTPERSEC 

ii 


823 




ii 


824 

5 


IS ROAIN >= BYTPB4SEC 

ii 


825 

5 



ii£S03 


824 


XRA 

A ;CARRm> 

U&504 

ED42 

827 


USX 

B 

643506 

F2398S 

828 



ROOI ;IF S>0, VL>^K 

ii 


829 




ii 


830 




ii 


831 



CM NOT Fn 

U 


832 

) 


ANOTHER BLOCK OF BYTPSSEC BYTES 

ii 


833 

9 


IN CURRENT B!fiTS4 

ii 


834 

% 



446509 

C99487 

835 


CALL 

SETFULL ;HARK CURRBff EUFFS4 FlU 

44 


834 

5 



4^65X 

21000S 

837 


m 


iUSSdF 

22598a 

838 


SU 

RSttIN ;RB1AIN<2048 

ii 


839 




iUB12 

385888 

840 


m 

PWlCHB ;SUITGH TO l€XT EUTB4 

446515 

X 

841 


m 

A 4 

446516 

325888 

842 


STA 

FUHIOS *, 

446519 

FEOA 

843 


CPI 

10 

44651B 

C22D85 

844 


JHZ 

SU 

44 


845 




44 


844 

? 

ttl 


446S1E 

3E00 

847 


IWI 

A,0 

446520 

325888 

848 


STA 

FUHID1B 

446523 

110090 

849 


m 

D, BUFFO 

446526 

ES537888 

8^ 


SDQ 

OJRRBlff 

44652A 

C33985 

851 


JIP 

ROOM 

44 


852 

1 



44652D 

2A7888 

853 

SU: 

UU) 

CURRBlf ;BA5E MORESS CF CU!R£Hr BUFFS 

446530 

010008 

854 


UI 

8^2048 

446533 

09 

855 


SAD 

B : INCRB1QIT BY 2048 


68 



U&5X 

2276M 

BS4 

iiS537 

54 

B7 

iOS38 

SD 

as8 

it 


BSP 

it 


B40 

iUBX 

Cl 

B41 

i68S3A 

£1 

B42 

mSS3B 

FI 

B43 

iiasx 

C9 

B44 

ii 


&4S 

ajsssn 

F5 

B44 

U6S3E 

SffiEBB 

B47 

iiS541 

3C 

848 

iiS542 

32SE8t 

84P 

ii8545 

FI 

870 

ues*i 

C9 

871 

ii 


872 

tia547 

F5 

873 


3A5ESE 

874 

mSS46 

FEOA 

875 

ii«54D 

C2S585 

874 

U8550 

3E00 

877 

ii«S^ 

325E8S 

878 

ii 


87P 

iil555 

FI 

880 

ii^ 

C5 

881 

ii 


882 

Ue557 

B 

863 

HS55S 

2A5C8E 

864 

ais^ 

23 

885 

ii455C 

77S'A» 

884 

uSSSF 

£1 

887 

iiSSiO 

CP 

868 

ii 


66P 

iilSil 

320130 

SPO 

aes64 

3E01 

8P1 

ues66 

320030 

8P2 

ue569 

3A0030 

8P3 

U6S6C 

07 

8P4 

USS6D 

D249flS 

BPS 

itiSTO 

2A0430 

8P4 

UBS72 

» 

8P7 

ii 


8P8 

iilS74 

4F 

8PP 

ii 


POO 

UIB75 

2400 

POl 

tiJSSTJ 

C? 

P02 

ii 


P03 

mBS7S 

4F 

P04 

4i«579 

^fiESa 

P05 

uDSTC 

47 

P04 

uBSTS 

C9 

P07 

ii 


P08 

iiSTl, 

2EK 

POP 

aasM 

2400 

PIO 


C9 

Pll 

ii 


P12 

ii 


P13 

ii 


P14 

iiB583 

»E4 

P15 

iiSSIS 

4F 

P14 

iiSSei 

2400 

P17 

aesBS 

C9 

P18 

ii 


PIP 

ii 


P20 

ii 


P21 



SHLD 

CURRBUF 


im 

D^H 


m 

E,L 

5 



ROOH: 

POP 

B 


POP 

H 


POP 

PSU 


RET 


UIHTS: 

PUSH 

P8U 


LDA 

Off 


DO 

A 


STA 

CNT 


POP 

PSU 


RET 


RIHTS: 

PUSH 

PSU 


LDA 

Off 


CPI 

10 


JKZ 

HOTIO 


HOI 

A,0 


STA 

Off 

NOTIO: 

POP 

PSU 


RET 


UCU: 

PUSH 

H 


LHLD 

TIH 


INX 

H 


SHJ) 

TIH 


POP 

H 


RET 


ADCO: 

STA 

ADDAHtOlH 


WI 

A»01 


STA 

ADDAIMOH 

BUST 

IDA 

tflDAtbOOH 


RLC 



JNC 

BUSY 


LHJ> 

ADDMM4H 




OCOt 

lOV 

M 

? 

HUI 

H,0 


RET 

BDCO: 

nou 

L^ 


LDA 

Off 


NOV 



RET 


IKE: 


M 


Kl 

H,0 


RET 

DIGH: 



? 

IWI 

L,34 

? 

fWI 

H^O 


IN 

«,TP0RT 


HOV 

M 


HOI 

K^O 


RET 


DIGU: 



5 

NVI 

L>S 

« 

IWI 

H,0 


;U>DAtED BASE imESS SMO 
;Affl PUT IKIO 
; THE K PAIR 


;ALTDETBi READING 


69 




2 tsm 

922 


UB£ 

LIGHTS 

U£5eC 

C9 

923 


RH 


ii. 


924 

OIGHQ): 



ussaD 

DEES 

925 


IH 

PUS»>(IiT 

itssaF 

iF 

926 


nov 

L^ 

ues9d 

2600 

927 


INI 

H»0 

ii 


928 

1 

MVI 

L,36 

ii 


929 

5 

HUI 

H,0 

US59Z 

C9 

930 


RET 


ii 


931 

DIGTIHs 



aes93 

2ASC88 

932 


UU 

Tffl 

iiS596 

C9 

933 


RET 


ii 


934 

STATE; 



ii 


935 

5 

THISHACHINE t»S TUO STATES 

ii 


936 

? 

STATE 0 

TIC WCHIME STAYS IN THIS STATE FOR 30 SECS. 

ii 


937 

? 


AFTSi 30 ELAPSE, IT TURNS ON THE PROPER UCNT 

ii 


938 

5 


AH) SHIFTS TO STATE 1. 

ii 


939 




ii 


940 

? 

STATE 1 

TK IWCHIHE STAYS IN STATE 1 UWa THE PROPS? 

ii 


941 

? 


PUSSUTTQN IS DEPRESSED. (LIGHT X GOES UITH PB X, ETC) 

ii 


942 

5 


THE CORRESPQfflING UI»T IS TIH4ED OFF M4D THE 

ii 


943 



WCHDC SHIFTS TO STATE 0. 

UeS97 

P5 

944 


PUSH 

PSU 

aesii 

ES 

945 


PUSH 

H 

UXS99 

CS 

946 


PUSH 

B 

ami 

3ME88 

947 


ISA 

ST 

u£9D 

B7 

948 


CRA 

A ;SET T)C FLAGS 

m8S9E 

C2C1S5 

949 


JHZ 

STATEl 

a 


950 

STATEO: 



assM. 

212C01 

951 


LXI 

H,THS£DY '40AD THE HUSER OF TIHER CUCXS )CEDED FDR 

am 

AF 

952 


ffiA 

A ;CLBlR CARRY 

aeste 

ED4B508& 

953 


LBCD 

PTIN 

am 

ED42 

954 


BSEC 

B 

am 

C2B785 

955 


JHZ 

BPTIH 

am 

CDDM5 

956 


CMi 

TOM. 

ami 

ami 

957 


CALL 

TONS ;STATE:1 

am 

C3Daas 

958 


JW> 

EAQ 

a 


959 

BPTMs 



ami 

2A5088 

960 


UfiJ) 

PTIB 

iiSSBA 

23 

961 


IHX 

H 

ami 

225088 

962 


SMJ) 

PTIH 

am& 

C3D685 

963 


M> 

BACE 

a 


964 

STATEl; 



ami 

CD2588 

965 


tm 

PS ;REni?N pusnunoN status in z flag 

ami 

CZD6S5 

966 


JHZ 

BACI 

a 


967 

PfiQNi 



am7 

CSF885 

968 


CAIl 

TOFFL ;TURH (IF LITE 

ufiSCA 

CDC86 

969 


CALL 

TOFFS jSTATE'O 

jjjiTn 

CD1C88 

970 


CALL 

CPTIH = 0 

ama 

0)6C86 

971 


CALL 

SHPBLITE ;SUITCH TO tEXT PUSffiUTON + LITE SET 

ami 

03)685 

972 


W 

BACK 

a 


973 

va: 



ami 

Cl 

974 


POP 

B 

am? 

El 

975 


POP 

H 

amt 

FI 

976 


POP 

PSH 

am 

C9 

977 


RH 


a 


978 

TQM.; 



amt 

F5 

979 


PUSH 

PSi 

ami 

3AS688 

980 


LDA 

BIM?Y 

amE 

FEOO 

981 


CPI 

0 

amo 

C2EF85 

982 


JHZ 

0N2 

ami 

385288 

983 


LDA 

LISffS 

ami 

E6FE 

984 


M4I 

(N^ ; 

ame 

D3C5 

985 


OUT 

UTS>0RT ;Bn 0 PORT B 5 VOLTS 

amt 

325288 

986 


STA 

LIGHTS 

aiGB 

FI 

987 


POP 

PSH 


70 



iiSSEE 

C9 

P88 


RET 

ii 


98P 

QN2: 


iitSEF 

3AS2S8 

990 


LDA 

iiB5F2 


991 


ANI 

LLBSF4 

D3CS 

992 


OUT 

LiBSFB 

3252SS 

993 


STA 

iiSSFP 

FI 

994 


POP 


C9 

995 


RET 

u 


996 

TOFFL: 


uBSFB 

F5 

997 


PUSH 

iLSSPC 

3«@68S 

998 


LDA 

iiSSFF 

FEOO 

999 


CPI 

iiS60I 

C210e& 

1000 


JNZ 

Ue604 

3AS288 

1001 


IDA 

iit607 

F401 

1002 


ORI 

iiM09 

B3C5 

1003 


OUT 

iiSiOB 

325288 

1004 


STA 

US60E 

n 

1005 


POP 

iiBiOf 

C9 

1006 


1^ 

U 


1007 

(SF2: 


iMlO 

3A5288 

1008 


LDA 


F602 

1009 


ORI 


MGS 

1010 


OUT 

uMV 

325288 

1011 


STA 

iiS61A 

FI 

1012 


POP 

iiUlB 

C» 

1013 


RET 

ii 


1014 

CPTMs 


uiiiC 

B 

1015 


PUSH 

imit 

210000 

1016 


LXI 

iitas 

225086 

1017 


SHLD 

uS&23 

El 

1018 


POP 

^6624 

C? 

1019 


RET 

a 


1020 

PBs 


liMS 

3A5688 

1021 


LDA 

ud628 

FEOO 

1022 


CPI 

UMZtt 

C23588 

1023 


JNZ 

}JJkA7Ji 

0BE5 

1024 


04 


325488 

1025 


STA 

UM32 

£601 

1026 


m 

4ifl634 

C9 

1027 


RET 

U 


1028 

P62: 


iJJU'K 

KE5 

1029 


04 

U&637 

325488 

1030 


STA 

i.^663A 

E602 

1031 


ANI 

iJAAfr 

CP 

1032 


RET 

a 


1033 

TONSt 


46&63D 

F5 

1034 


PUS4 

iiMSB 

3E01 

1035 


HVI 

iiSMO 

324E88 

1036 


STA 

HM43 

FI 

1037 


POP 

mS644 

CP 

1038 


1ST 

ii 


1039 

TOFFS: 


iiUC 

F5 

1040 


PUSH 

UJM6 

3EOO 

1041 


WI 

uMM 

324E88 

1042 


STA 

US64B 

FI 

1043 


POP 

iMK 

CP 

1044 


1ST 

li 


1045 

FLIP: 


ii 


1046 

5 


HMD 

F5 

1047 


PUSH 

UB6«. 

3A5288 

1048 


LDA 

iiSiSl 

m4 

1049 


XRI 

US653 

EE08 

1050 


XRI 

iiS6S5 

325288 

1051 


STA 

uS65S 

D3C5 

1052 


OUT 

iiS&SA 

FI 

1053 


POP 


LIGHTS 
OFIH ; 

LITffORT ;BIT 1 PORI B 5 WH.IS 

usns 

PSi 


PSH 

Bim 

0 

(ffF2 

UOflS 

OlH ; 

UTEPORI 5BITOPDRTB 0 VOLTS 

LIGHTS 

PSU 


LIGHTS ; 

02H 

LITffORT 5BIT 0 PORT B 0 VOLTS 

UGHTS 

PSi 


H 

H,0 

PTIH PTin 

H 


BUST 

0 

PB2 

PUSH^ ^PUSHBUTQOH STATUS 
HODES 

OUi ;BHO PORTS 

{STATUS REIURHED IH Z FLAG 

PUSJfORT 

nooES 

02H {BIT 1 PORT B 


PSi 

A>01H { 

ST {STATE’l 

PSU 


PSU 

A,0 

ST 

PSU 


{TOGGLE UGHT 3, TOGGLE UGKT 4 TOCETKS! 
PSU 
U[»TS 

(MH {RIP BIT 2 

OSH {FUP BIT 3 

UGHTS 

LITEPORT 

PSU 


71 



ii665B 

C9 

1054 


RET 



a 


1055 

SUPBLITE 

: 



Li 


1056 

5 

IF YOU USING PBO ^ UTEO. 

il 


1057 

» 

USE PBl MB) LITEl. 


u 


1058 

\ 

IF YOU MS USING PBl MD UTEl, 

U 


1059 

» 

USE PBO AND UTEO. 


ii 


1060 

$ 




U&6SC 

F5 

1061 


PUSH 

PSU 


ii&iSO 

3tsm 

1062 


LSA 

BURY 


U&660 

mi 

1063 


XRI 

OU 


iiua 

325688 

1064 


SIA 

BURY 


imes 

FI 

1065 


PO> 

PSU 


iJAM 

C9 

1066 


BET 



U 


1067 

CTD!$ 





B 

1068 


PUSH 

H 


;JJUAA 

210000 

1069 


UI 

H,0 

;HL°0 

umB 

225C88 

1070 


au 

lU 

jSECOHO COHTER = 0 

iM6£ 

El 

1071 


PUP 

H 


u666F 

C9 

1072 


BT 



u 


1073 

SETCDIG: 




U 


1074 

> 




u 


1075 




SET DIGIT CQIHIER CHTDIG 

U 


1076 

\ 




U6670 

F5 

1077 


PUSH 

PSU 


uS6/l 

3E00 

1078 


HOI 

A,0 


uM73 

324088 

1079 


STA 

CNTSIG 

;CHTDIG^> 

iM76 

FI 

1080 


PUP 

PSU 


U&677 

C9 

1081 


RSI 



U 


1082 

IK7UQDIG 

z 



ii667& 

E5 

1083 


PUSH 

H 


U&679 

O 

1084 


PUSH 

B 


u667A 

05 

1085 


PUSH 

0 


ii 


1086 




;DSX TO SEE IF THERE IS 

ii 


1087 




^ TUO DIGn INPUT READY 

ii 


1088 




5 

ii 


1069 




;IF THERE IS NOT, 

ii 


1090 




; RETURN UITH Z SET 

ii 


1091 




5 

ii 


1092 




;IF TtSRE IS, 

ii 


1093 




; RETURN UITH Z RESET 

ii 


1094 




1 

ii 


1095 




I 

U667B 

C0B186 

1096 


eta. 

01 

;ST DIGIT IF UAnUG 

U667E 

CA8086 

1097 


JZ 

UPUU 

; IF Z SET, HOTGHIHG WITUG 

ii 


1098 

5 




ii 


1099 

? 




ii 


1100 




;Z NOT SET, X DIGIT U ACC 

iMAi 

E60F 

1101 


MI 

OFH 

;CCWERT ASCII DIGIT TO BDMY DIGIT 

ii 


1102 

\ 

CALL 

WXf> 


ii 


1103 

\ 

CALL 

CRLF 


)JAAA^ 

57 

1104 


NOU 

M 

;SAVE DIGn IN 0 

uMM 

3M088 

1105 


LM 

OflOIG 

;CHIDIC IS DIGIT COMTER 

uua 

X 

1106 


Eft 

A 


iJJJM 

324088 

1107 


STA 

CNTSIG 


iJAJM 

FE02 

1108 


CPI 

02H 

5 

;jAAftn 

CA9886 

1109 


SI 

MWE 

;IF Z SET, COUNT IS 2 

u 


1110 





u 


1111 

» 




ii 


1112 




;HAUE IW4IT IN D, SMS IN B 

ut690 

7A 

1113 


NOV 

A,I> 


M6&91 

324688 

1114 


STA 

IM>UIS 

;SMIE FIRST OfUT DIGIT 

iiA694 

AF 

1115 


XRA 

A 

;Z IS SET 

US695 

C3M>86 

1116 


JMP 

DPUIR 


ii 


1117 

wmi 




UBiin 

3A4B88 

1118 


LDA 

Hfurs 

?N0UE FIRST IFPUT DIGH U ACC 

^i869B 

iff 

1119 


RLC 




72 



^^9C 

07 

1120 


RLC 



j j«Aon 

07 

1121 


otr 

TU4w 



U669E 

V 

1122 


HDV 


;{B)=S»(WUTS) 

iii69F 

3MBU 

1123 


UM 

DfUTS 

? 

amz 

87 

1124 


ADD 

A 

;<A)=2«(W>UTS> 

iiMQ 

80 

1125 


MH) 

B 

?(A>=2»(W=UTS)48»(INPUIS)=iO»aNPUTS) 

Ua6M 

82 

1128 


M)D 

0 

;ADD IN ^CQHD ItPUT DIGIT 

ictifS 

328C88 

1127 


STA 

TUOSIG 


uUAt 

xoo 

1128 


mi 

A,0 


um^ 

328S83 

1129 


STA 

CHTDIG 

;CL»R TtC COUKTBi 

a 


1130 

DfUTR: 



utM 

Di 

1131 


POP 

S 


u66f£ 

Cl 

1132 


POP 

B 


iiAMF 

El 

1133 


POP 

H 


iiliiX 

C9 

1134 


RET 



ii 


1135 

DI: 




a 


1138 




ACC M> FLAGS ARE CHBCED 

li 


1137 

1 



GET IPFUT IF IMITING 

u 


1138 

\ 



OnSWISE RETURN WITH Z SET 

a 


1139 





a 


1140 




SEE IF UPUT IS ADECm DIGIT, 

a 


1141 

? 



IF NOT RETURN UITH Z SET 

a 


1142 

? 




u 


1143 




IF OPUT IS A DECIIttL DICn, 

u 


1144 

? 



ECHO n AND RETURN IN ACC 

a 


U45 





u 


1148 

\ 




umi 

IffiCD 

1147 


IN 

S8251 


;jAA» 

E802 

1148 


AHI 

RXRSY 

;IS THBS INPUT DATA YET 


C8 

1149 


RZ 


;IF Z IS SET, ISTURN 

u 


1150 

? 




u 


1151 

? 



R»D Tt£ Q«« 

ii 


1152 





ium 

OBCC 

1153 


IN 

D82S1 

•,GET CHAR 

iJJJJSA 

E87F 

1154 


MU 

07IH 

5 CHDPWFPARm 

ii 


1155 





ii 


1158 




TEST FUR DIGIT FROM 0 TO 9 

ii 


1157 

? 




uA6BA 

FE30 

1158 


CPI 

30H 

; COTPARE WITH ASCII 0 

ijJMC 

FAC888 

1159 


JH 

DINQDIC 

; ,UP IF LESS T»W 

fJAASP 

FE3A 

1180 


CPI 

3AN 

;COPARE UITH ASCII COLCN 

US6C1 

F2C886 

1181 


JP 

DINQDIG 

; JUMP IF GREATER OR HMU. 

ii&6C4 

C00688 

1182 


CAU 

CO 

;HWE LEGAL DIGIT IN M£, Z IS RESET 

iiWC7 

C9 

1183 


RET 


ii 


1184 

1 




ii 


1185 

> 




ii 


1188 

D1M3)IG: 




iJAfTA 


1187 


XRA 

A 

|Z IS SET 

U&6C9 

C9 

1188 


RET 



ii 


1189 

DISPUY: 




US6CA 

F5 

1170 


PISH 

PSU 



ES 

1171 


PISH 

H 


;jjurr 

CS 

1172 


PUSH 

B 


ii 


1173 




;DISPLAY NBfKY LOCATION 

ii 


1174 




^CORRESPONDING TO TUQDIG ADDRESS 

ii 


1175 




5 

;jjun 

3A5ES8 

1178 


LDA 

CKT 

;IHTERRUPT COUNT LOADED IN MX 

HMDO 

FE09 

1177 


CPI 

9 

; IS THIS THE NINTH INTERRUPT 

iiM>2 


1178 


JNZ 

BISPLATR 

; RETURN IF HOT NINE 

ii 


1179 




? 

ii 


1180 




T 

mas 

3MC88 

1181 


LDA 

TUniG 

;L0AD TW DIGH NUKBER 

mas 

FEOO 

1182 


CPI 

0 

; IF n IS ZERO, NOTHING TO DISPLAY YET 

mas 

C8F388 

1183 


JZ 

DISnjUR 

; SORETURN 

ii. 


1184 





ii 


1185 




« 


73 - 




87 

1186 


MH> 

A 

•FORH BYTE OFFSET IH ACC 

UAna 

D802 

1187 


SUI 

2 

; VALUE OF 1 IS Ml OFFSET (P ZERO 

it 


1188 




> 

MiiEO 

2800 

1189 


nvi 

H^O 

;H0VE ACC OFFSET 

;JJUF9 

8F 

1190 


HDV 

L^ 

; HL HAS ACC (STSET 

UUSi 

EMBS788 

1191 


LBCD 

SMOE 

; BASE ADDRESS OF CURRENT STORAGE Si BC 

ud6E7 

09 

1192 


DM 

B 

; AU>ED TO OFFSET 10 FORM POIKTER TO 

ii 


1193 




; ffiORY LOCATION YOU UMiT TO SEE 

U 


1194 




T 

uA6Ea 

CD2A87 

1195 


CMX 

CRLF 


uA6EB 

CDF7Bi 

1196 


CAU. 

HDN>2 

1 



1197 




? 



1198 




9 

i6 


1199 

? 

CNl 

CSSS 


U 


1200 

? 

LBA 

vxaiG 


ii 


1201 

5 

CMX 

mr 


U 


1202 

; 

CALL 

CRLF 


u 


1203 

5 

LXI 

H,SA0EI£ 


ii 


1204 

? 

CUl 

HDn>2 


ii 


1205 


CAa 

CRLF 



3EOO 

1206 


m 

A,0 

;ZER0 

iiSSFO 

32C88 

1207 


STA 

TUmiG 

; IWDIG 

ii 


1208 




? 

ii 


1209 




1 

ii 


1210 

DISPUYR 

5 



iiA6F3 

Cl 

1211 


POP 

B 


ii&m 

El 

1212 


POP 

H 


iitiS5 

FI 

1213 


POP 

PSU 


iUifi 

C9 

1214 


RET 



ii 


1215 


; MIP T>£ CCHTEHTS OF HBIKT W 

ii 


1216 


i H NCOS STARTINC ADDRESS Of m> 

ii 


1217 


,• A REG 

IS USED n HDUHP 

mm 

F5 

1218 

HSNP2S 

PUSH 

PSU 


mm 

ES 

1219 


PUSH 

H 


mm 

23 

1220 


INX 

H 


msi\ 

7E 

1221 


nov 

A>n 


mtn 

C00987 

1222 


CMl 

WHP 


mm 

2B 

1223 


Da 

H 


mm 

7E 

1224 


nou 

A# 


ujavt 

CD0987 

1225 


CALL 

HUP 


m703 

CD2A&7 

1226 


CMJ. 

CRUP 


iit706 

El 

1227 


POP 

H 


mifsi 

FI 

1228 


POP 

PSi 


U8708 

C9 

1229 


RET 



ii 


1230 

? 


MVP USES TIE A REG 

US709 

FS 

IZU 


PUSH 

PSU 

;SAVEACC 

U870A 

FS 

1232 


PUSH 

PSU 

; TUICE 

mjot 

E8F0 

1233 


Mil 

(ffOH 

;ISQLATE THE HIGH ORIER HYBBLE 

iifiZOD 

OF 

1234 


RRC 



iiUdi 

W 

1235 


RK 



ua« 

OF 

1236 


RRC 



iiVXO 

OF 

1237 


RRC 


;HI DIG SHIFTQ) RIGHT BY 4 

u871i 

rp9?ft7 

1238 


CALL 

Bins 

;PRINT HIGH 0R)ER DIGH 

imu 

OXffiSS 

1239 


CALL 

CO 

;PRIIiT ASCII FORK OF HIGH DIGH 

iUJV 

FI 

1240 


POP 

PSU 

•,REST0IE TIE ACC TO VALUE AT BdRY 

iiSU 

E80F 

1241 


AH! 

OFH 

;IS0UiTE THE LOU ORDER HYBBLE 

u£71A 

CD2287 

1242 


CAU. 

BME 

> 

uS710 

CB(»88 

1243 


CMl 

CO 

5 

iiVX 

FI 

1244 


POP 

PSU 


mm 

C9 

1245 


RET 



msm 

C830 

1246 

B»£: 

ADI 

30H 


mm 

FE3A 

1247 


CPI 

SMI 

? 

mm 

S8 

1248 


RC 



mm 

C607 

1249 


m 

7H 


mm 

C9 

1250 


RET 



ii 


1251 

5 


CRLF USES ONLY THE AREC 


74 



64672A 

F5 

12^ 

CELF: 

PUSH 

PSU 


64d72B 

3E0D 

1253 


WI 

A, OSH 



atom 

1254 


CAU. 

CO 


w8730 

3ESA 

1255 


IWI 

A,0M 


^32 

mm 

1256 


CMX CO 




FI 

1257 


POP 

PSU 


USJU 

C9 

1S3 


RET 



ii 


1259 

;MTAQURW: 



U 


1260 

y 

ME HE FaUNG FASTER TWN UE ME SfTTIHE 

ii 


1261 

5 

PUSH 

PSU 


ii 


1262 

5 

PUSH 

B 


ii 


1263 

? 

LSA 

EWICHB 


ii 


1264 

y 

mv 

B,A 


U 


1265 

\ 

LOA 

FUHIQS 


ii 


1266 

5 

Of 

B 


ii 


1267 

y 

JKZ 

D1 


ii 


1266 

5 



DATA (KMaW 

ii 


1269 

y 

mi 

A/O' 


ii 


1270 

? 

CALL 

BO 


ii 


1271 

? 

H.T 



ii 


1272 

•^1: 




ii 


1273 

y 

POP 

B 


ii 


1274 

y 

POP 

PSU 


ii 


1275 

y 

RET 



ii 


1276 


; 



a 


1277 

y 



LET THE FILLS CATCHUP UITH 9PTTS 

ii 


1276 

y 

PUSH 

PSU 


ii 


1279 

y 

PUSH 

B 


ii 


12S0 

y 

LDA 

Fniaffi 


ii 


1281 

y 

CPI 

0 


ii 


1282 

y 


w 


ii 


1283 




iOS SUFFER HAS HOT YET BEEN FILLED 

ii 


1284 

?V2: 

LDA 

FUHICHB 


ii 


1285 

y 

CPI 

0 


ii 


1286 

? 

mi 

A,'U' 


ii 


1287 

; 

CMX 

CO 


ii 


1288 

5 

JZ 

U2 


ii 


1289 




;0NE BUFFER HAS BEEN FILLED 

ii 


1290 

; 

mi 



ii 


1291 


STA 

Fnioc 


ii 


1292 

?Vls 




ii 


1293 




;HAKE SURE FILLER STAYS MEAD OF SPTYER 

ii 


1294 

y 

IM 

EUHICHB 


ii 


1295 

y 

HDV 

B,A 


ii 


1296 

y 

LDA 

FUHICHB 


ii 


1297 

y 

OP 

B 


ii 


1298 


LDA 

FUHICHB 


ii 


1299 

5 

Ml 

SON 


ii 


1300 

» 

CALL 

CO 


a 


1301 

5 

JZ 

W 


ii 


1302 

? 

POP 

B 


U 


1303 

? 

POP 

PSU 


ii 


1304 

y 

RET 



ii 


1305 

IHITSENA 

; 



ii 


1306 




Aa HffFERS BPn 

US7V 

F5 

iX7 


PUSH 

PSU 


u8738 

C5 

1308 


PUSH 

B 


ud739 

£5 

1309 


PUSH 

H 


^^a73A 

21MSd 

1310 


LXI 

H,SSM>HQRE ; 


060A 

1311 


mi 

BAD 


u£73F 

3&G 

1312 

SI: 

mi 

H/E' 


US741 

23 

1313 


INX 

K 

;ADDRESS NEXT SEHIPHORE 

iwn 

05 

1314 


DCR 

B 

•ONE LESS SEHIPHORE TO INITIMISE 

UB74Z 

C23F87 

1315 


JHZ 

SI 

;REPEAT UNTIL ALL SENIFHORES ME INHIMISED 

HJS4b 

El 

1316 


POP 

H 


US747 

Cl 

1317 


POP 

B 



75 



ii«74S 

FI 

1318 

POP 

PSU 


u£7*a 

C9 

1319 

m 



a 


1320 

TSTFULL: 



u 


1321 



IHTIL BUFFER EMPTY (IHFIHITE : 

U&74A 

F5 

1322 

PUSH 

PSU 


US74S 

CS 

1323 

PUSH 

B 


iiJUK 

ES 

1324 

PUSH 

H 


^4D 

216A88 

1325 

UU 

HfSEMPNORE 

uim 

3A5B88 

1326 

LDA 

FHKICHB 


ua753 

0600 

1327 

m 

B,0 


iifi7!S5 

4F 

1328 

m 



4ia75i 

09 

1329 

m 

B 

;<NL)!* SSHPHGREiCFUHICHB) 

iiU57 

7E 

1330 

FULUi nv 

A;H 

;(A):° (^WHOREfCFWICHB)) 

iiATSS 

FE46 

1331 

CPI 

•F* 

;SEE IF BUFFER FULL 

iiJSrSfi 

CC6187 

1332 

cz 

(MW 

;UAIT TIL B«>TY 

uB75D 

El 

1333 

POP 

H 


UA75E 

Cl 

1334 

POP 

B 


iiSTSF 

FI 

1335 

POP 

PSU 


ae/60 

C9 

1336 

RET 



u 


1337 

OURUH: 



iiS76l 

3E4F 

1338 

IWI 

A/O' 


m87&3 

CD0B68 

1339 

CALL 

CO 


ii87i6 

3E56 

1340 

mi 

A/V 


iiS766 

CD0B88 

1341 

CALL 

CO 


US76B 

3ASB88 

1342 

LDA 

FWICHB 


Ue76E 

C641 

1343 

Aor 

'A' 


uxno 

COOB88 

1344 

cux 

CO 


usm 

C30000 

1345 

JIf . 

0 


a 


1346 

TSIBPTYs 



ii 


1347 



;UAIT UNTIL BUFFER FULL 

iU77i 

FS 

1348 

PUSH 

PSU 


ijJSm 

C5 

1349 

PU9j 

B 


448778 

S 

1350 

PUSH 

H 


448779 

216A88 

1351 

LXI 

H>SaMW!E 

44877C 

<910000 

1352 

IDA 

EUHICHB 


44877F 

0600 

1353 

IMI 

ifi 


448781 

4F 

1354 

nov 

C,A 


448782 

09 

1355 

OAD 

S 


448783 

7E 

1356 

MTfU MW 

A^ 

;< A) :> (SBHPH0RE4(EUHICHB) ) 

4^84 

FE45 

1357 

CPI 

'E' 

IF BUFFSI EIPTY 

448786 

F5 

1358 

PUSH 

PSU 

;SAVEZFLAG 

448787 

OAzaoa 

mVIOOOO 

1359 

LDA 

BHIClfi 


44878A 

C630 

1360 

ADI 

'0' • 

^CONVERT TO ASCII 

u 


1361 

; CAa 

CO 


44878C 

FI 

1362 

POP 

PSU 

;RE5I0R£ Z FLAG 

44878D 

CA8387 

1363 

3Z 

BI>TT1 

;UAIT UKTE FUJ. 

448790 

El 

1364 

POP 

H 


448791 

Cl 

1365 

POP 

B 


448792 

FI 

1366 

POP 

PSU 


448793 

C9 

1367 

RET 



44 


1368 

SEIFUlt 



44 


1369 



;HMa BUrf cR FULL 

668794 

F5 

1370 

PUSH 

PSU 


66879S 

C5 

1371 

PUSH 

B 


668796 

S 

1372 

PUSH 

H 


668797 

216AB8 

1373 

UI 

HtSBMPHORE 

66879A 

3ASB88 

1374 

UA 

FWICHB 


668790 

0600 

1375 

• mi 

B,0 


66879F 

4F 

1376 

nv 

C,A 

;(BC):-(FWICHB) 

6687M 

09 

1377 

DAD 

B 

;<HL):-SDM>H0RE4(FUHICHB) 

6687A1 

X46 

1378 

mi 

A/F- 

IT FULL 

6687A3 

77 

1379 

HOV 


;(SBW>H0RE4^(FUHICHB»!:'F' 

6687M 

El 

1380 

POP 

H 


6687A5 

Cl 

1381 

POP 

B 


6687A6 

FI 

1382 

POP 

PSU 


6687A7 

C9 

1383 

RET 




76 



l«ARi: BUFFIR ESTTf 


u. 


1364 

SETEHPTK 

; 



u 


1385 




;NARi: BUFFER ESTTf 

ii87A8 

F5 

1366 


PUSH 

PSli 


UB7M 

C5 

1387 


PUSH 

B 



E5 

1366 


KISH 

H 


ii£7tiS 

2UMS 

1389 


LXI 

H.SENAPHQRE 


3MSSS 

1390 


LDA 

EUKICHB 


Li£7Bl 

0600 

1391 


IWI 

B^O 


ii&m 

4F 

1392 


KV 

CM 

;<EC);:<EUHICHB) 

iifi7B4 

09 

1393 


DAO 

B 

;(HL) :=SHiAPHDRE+(EUHICHB) 

ii87B5 

3E4S 

1394 


IWI 

A/E' 

;HARx II mn 

iia7E7 

77 

1395 


NOV 

HM 

?(SEIttfHORE+(ENHICHB) ) S' ' E' 

iia/ES 

El 

1396 


POP 

H 


i4«7B9 

Cl 

1397 


POP 

B 


iiSTBA 

FI 

1396 


POP 

FSW 


uSTBB 

C9 

1399 


RET 



ii 


1400 

INITRE; 




UUK. 

CD7006 

1401 


CALL 

SETCDIC 

;ZER0 DIGIT COUNTER, CNTDIG 

iiaTBF 

CD2783 

1402 


CALL 

CKTRO 


iiS7C2 

CD1683 

1403 


CAU 

CHTRl 


iifl7C5 

3E0A 

1404 


IWI 

A, 10 


iia7C7 

326166 

1405 


STA 

FLAG 


iiSTCA 

3E60 

1406 


IWI 

A,60H 

•jFORIttT 8255 AS NODE 0, 

4i87CC 

D3EB 

1407 


OUT . 

OEBH 

; ALL THREE PORTS OUTPUT OH J-2 8004 

ii87CE 

110090 

1406 


LXI 

D, BUFFO 

; SFWEDE POINTEF; = 


ED53S766 

1409 


SDED 

SAVEDE 

; SET TO BASE ADDRESS OF ALL TEN BUFFERS 

usm 

3E00 

1410 


IWI 

A,00H 

} POINTER THAT TELLS WHICH BUFFER 

umi 

325B68 

1411 


STA 

FUHICHB 

; IS BEING FILLED = 0 

LUJM 

210006 

1412 


LXI 

H,2048 

;CaKrER TO TELL HOW HUGH 

iiSTDD 

225966 

1413 


SKLD 

RENAIN 

; OF A BUFFSI IS UNFILLED. 

iiBTEO 

110090 

1414 


LXI 

D, BUFFO 

; POINTS! TO BASE ADKiESS OF CURRS4T 

iiSTES 

210000 

1415 


LXI 

H,0 

;ZER0 our 

asm 

225E66 

1416 


SHLD 

CUT 

; INTERRUPT COKTH? 

OS7E9 

ED537686 

1417 


SDED 

OJRREUF 

; BUFFER BEING FILLED 

a 


1416 


IWI 

AM 

5 

a 


1419 

5 

STA 

FILLONE 

;FILL0NE'0, HEIW4S ALL BUFFSS ARE EimY 

a 


1420 




; OF DATA. 

asm 

3ES0 

1421 


IWI 

AM60H 


asm 

D3C7 

1422 


OUT 

LITECTRL 

;F0RNAT LIGHTS 

asm 

3E9B 

1423 


IWI 

A,09BH 


asm 

S3E7 

1424 


OUT 

<116004 

;F0RmT PUSHBUTTONS. 

asm 

3EFF 

1425 


IWI 

A,0FFH 

;TU<N OFF LIGHTS 

asm 

D3CS 

1426 


OUT 

LITEPORT 


asm 

325266 

1427 


STA 

UGHTS 

; SAVE LIGHT STATUS 

asm 

CM566 

1426 


CALL 

TOFFS 

;STATE=0 

asm 

C01C66 

1429 


CALL 

CPTIN 

;pnB=0 

OSS02 

CD6766 

1430 


Oil 

CTW 

•CLEAR SECOND COUNTS! 

mS805 

3E00 

1431 


IWI 

A,0 


OSS07 

325666 

1432 


STA 

Bum 

;BW!Y=0, PBO AND LTTEO FIRST 

assoA 

a 

C9 

1433 

iA'iA 


RET 









a 


1435 

\ 


. DW5ACTER OUTPUT ROUTINE 

a 


1436 

; CO OUTPUTS ONE OMIACTER FPQtl ACC TO TEEHm 

a 


1437 

: VIA THE USAIT. 

ALL REGISTERS AND FLAGS ttZ 

a 


1436 

: PfiESQiVEI). THE OVAACTER 

IT OUTPUTS IS IN THE ACC. 

a 


1439 







R&RKHimi 


XKtKKltlKKX H lH 11 1 

assoB 

F5 

1440 

CO: 

PUSH 

m 


asso: 

C5 

1441 


PUSH 

B 


uBBOd 

4F 

1442 


NOV 

C,A 

iSAVE A REG 

iiMCE 

00 

1443 

COO; 

HOP 


sI'ELAY 

a&s<7 

Cl 

1444 


HOP 


; 

iiesio 

if;: 

1445 


IN 

SI251 

ij3A.\T STATUS 

iifi312 

E'Oi 

1446 


ANI 

rx'i'Y 

;CX:K TF;;^-S1IT FiADY pj: 

iiEH;- 

1 1 ; ■ *' 

1447 


J2 

c;-- 

: :.rA"V 

225117 

r.^ 

1448 


HOP 



7 ' ' ■ . 


144? 






77 




00 

1450 

HOP 



ufiAlA 

00 

1451 

NOP 



iiJtm 

79 

1452 

MOV 

A^ 

;REA0Y TO TRANSHIT , RESTORE CHAR TO A REG 

mS81C 

D3CC 

1453 

OUT 

08251 

;S£ND IT 

uMlE 

Cl 

1454 

POP 

B 


UA81F 

FI 

1455 

POP 

PSU 


iiSS20 

C9 

1454 

RET 



u 


1^ 

OillUSARTs 



ami 

CD2B88 

1458 

CALL 

RUSMT 

;HASTS1 R^ SOUBCE 

Mfl824 

CD3G88 

1459 

CAU 

HUSMIT 

;SET HDI£ IN USMiT 


CM38S 

1460 

CAU 

CUSART 

;SETCC(HM> IN USMT 

imsii 

C9 

1461 

RET 



uja^ 

3E80 

14^ 

RUSART: HOI 

A^ 

;RESET 8251 

ium 

D3GD 

1463 

OUT 

C8251 


UMlSP 

£3 

1464 

XTH. 



U&B30 

E3 

1465 

XT». 



^6631 

DXD 

1466 

OUT 

C8251 


;JAA.'W 

£3 

1467 

XTHL 



US834 

£3 

1468 

XTH. 



;JAA!K 

3E40 

1469 


A,40H 

♦ 

uAS37 

D3CD 

1470 

OUT 

C82S1 

$ 

uSfi39 

£3 

1471 

XTH 



uas3A 

£3 

1472 

XIH 



usasB 

C9 

1473 

RET 



;jjutr 

3E4E 

1474 

nUSART: HOI 

A^USHQK 


;jjuwp 

03CD 

1475 

OUT 

C8251 


ua&40 

£3 

1476 

XTH 



iiUn 

£3 

1477 

XTH 



uM42 

C9 

1478 

RET 



uU43 

3E37 

1479 

OBffT: HOI 

A^JSCKO 

,>R£ST ERROR FLAGS 

ii 


1480 



; QMBLE TRANSiflT 

ii 


1481 



; DMBLE RECIEVE 

ii 


1482 



; RQHIY DATA SET 

u 


1483 



; 

ii 


1484 



? 

uMC 

S3CD 

1465 

OUT C8251 :SM CHMM> 

mU47 

£3 

1486 

XTH 



uW48 

£3 

1487 

XTH 



uU49 

C9 

1488 

RET 



utM 

C9 

1489 

RET 



u 


1490 



* 

mOOC 


1491 

BTTPERSEC EQU 

2i38 ; 

NDH HAHY BYTES PBl SEC OF DATA 

iiOlX 


1492 

THSEBY: £0U 

300 

;NUe£R (7 TIHDI CUCXS NSDED FOR 30 0S.AY 

ii 


1493 



;300 FOR .1 SEC TIHR HICXS 

ii 


1494 



;1S0 FOR .2 Sa: TIHER CUOCS 

iiOOlO 


1495 

Tin EBU 

OlOH 

5 

ii0027 


1496 

THIGH £(U 

027H 

;2710H>10000D 

ii 


1497 

;TLaU £QU 

020H 

5 

ii 


1498 

;THIGH EOU 

04ffi 

;4£20H<=20000D 

ii004E 


1499 

USK£>£: rai 

04S) 

? 

ii0037 


1500 

USCH): EBU 

037H 

T 

iiSMB 

00 

1501 

DfUTS: » 

0 


iiM4C 

00 

1502 

TUODIG: DB 

0 


iiS8«> 

00 

1503 

CNTOIG: SB 

0 


iiOOCD 


1504 

S8251 EBU 

CCOH 


iiOOCD 


1505 

C8251 EBU 

S82S1 


iiOQCC 


1506 

S8251 EBU 

OCCH 


ii0002 


1507 

R3RSY EBU 

02H 


iiOOOl 


1508 

T»iOY EBU 

OlH 


uM4E 

0000 

1509 

ST: W 

0 


uM50 

0000 

1510 

pm: BU 

0 


iiaaS2 

0000 

1511 

UQflS: M 

0 


iiaS54 

0000 

1512 

HUES: OH 

0 


ii£S56 

00 

1513 

BINRY: DB 

0 


iiMS7 

0090 

1514 

SAOESE: OH 

BUFFO 


uses9 

ooos 

1515 

REHAOi: DU 

2048 



78 



LiB@B 


ISU 

UiSSC 

0000 

1517 

LiBSSE 

0000 

151B 

HSS60 

00 

1519 

iiUil 

00 

15S0 

;JJWA9 

0000 

15S1 

max 

0000 

15SS 

iJMAA 

0000 

15S3 

jJJUM 

00 

1524 

ui669 

00 

1525 

iitax 

45««45« 

152B 

u, 

4545A5«« 


utSL4 

0000 

1527 

UW6 

0090 

152B 

iii^a 

0000 

1529 

u 


1530 

uU7A 

F5 

1531 

iieVB 

ES 

1532 

iiUTC 

C5 

1533 

iLSBTS 

S5 

1534 

uB&TE 


1535 

um> 

n)E5 

153B 

;jjuu» 

3A^ 

1537 

;jjuuK 

FEOO 

153S 

lUXG 

C29BBS 

1539 

LL 


1540 

U 


1541 

iijmi 

OS3SB 

1542 

jjAAAA 

FSEl 

1543 

uMS 

SDEl 

1544 

mS691 

SI 

1545 

ujtm 

Cl 

1546 

mM93 

El 

1547 

mB694 

FI 

1546 

uStfS 

C9 

1549 

iiBB94 

FE09 

1550 

mB898 

CSA7S8 

1551 

mB89B 

CffABS 

1552 

m8S9E 

FSEl 

1553 

mUAO 

S!£l 

1554 

mSSAS 

SI 

1555 

uMA3 

Cl 

1556 

iittA4 

El 

1557 

uBSAS 

FI 

1556 

iiSBAA 

C9 

1559 

USSA7 

CNC88 

1560 

LiBBM 

FKl 

1561 

uBBAC 

SSEl 

1562 

oUAE 

SI 

1563 

Hitts 

Cl 

1564 

ijAMn 

El 

1565 

uABBl 

FI 

1566 

mBSSS 

C9 

1567 

il 


1566 

liMSQ 

S1A&8A 

1569 

iJJMA 

013000 

1570 

iom 

CBFA69 

1571 

u 


1572 

a 


1573 

u 


1^4 

ii 


1575 

tjjAvr. 

AF 

1576 

iiB^ 

3S88BA 

1577 

u 


1576 

u 


1579 

U58C0 

IE>S157e8 

1560 


fvruwnp* VP w 

nn: su 0 

CHT: M 0 

FOLWE: SB 0 

FLAG: SB 0 

SME: Sy 0 

SM: DU 0 

BfflMN: OH 0 

BHICHB: M 0 

TSU: n 0 

a?MPHQRE: Iffi 

EOKRBlff: SU 0 

□JRRBUF: DU BUFFO 

ISniE: SU 0 
MG: 

PUSH PSU 

PUSH H 

PUSH B 

PUSH D 

PUSHX 
PUSHY 

ISA Off 

CPI 0 

XL AWGl 

? IWl A/1' 

; CMl CO 

CMi PM«n 

PDPT 

PQPX 

POP D 

POP B 

PUP H 

POP PSU 

RH 

Aun: CPI 9 

JHZ AVG2 

CAU PARIS 

POPI 
POPX 

FOP D 

POP B 

POP H 

POP PSU 

RET 

MIG2: CAU PARIS 

POP! 

POPX 

POP S 

POP B 

POP H 

POP PSU 

REI 

PARn 

LXI H^ 

LXI B,« 

CALL CLBK 

PARIS; 

5 IW A, 'S' 

; CALL CO 

. CALL CRlf 

XRA A 

SIA ITS! 

TPl; 

; CALL PORTAOFF 

LXIX PHIA16 


;FIU. Silffl aJFFS 


;EM>IY MUCH BUFFER 


;TSI BUTER sailPHORBS Ml 'E' 


79 




FS21UM 

1S81 


un 

ITS 


a;aata 

C0BFS9 

1382 


CftLL 

LD2SOE 

;(EOE)::A14(ITS) 

U 


1383 

\ 

CALL 

WOE 

;0UHP BCIS REGISTERS 

U 


1584 




HMm 

OW»9 

1385 


CALL 

DSTMX 

^(BCOE) CNIO X BIT STACK 

iJMrv 

DD21A&M 

1588 


LXIX 

A32 


amz 

FD2iaUA 

1387 


Lxn 

ITS 



C0BB89 

1388 


CALL 

LS4XX 

)(BOE):<A32(ITS) 

u 


1589 

? 

CALL 

WCSE 

;BUKP BCDE REGISTERS 

ujm 

CD4D89 

1590 


CttL 

DSTAGX 


umc, 

07189 

1591 


CftLL 

FlXftOO 


iijm 

05F89 

1392 


CALL 

UOSTACX 

;<Bd£)::RESULT CF 32Bn OiTEGS M>D 

a 


1593 

1 

CMl 

WOE 

;0UR Om REGISTSS 

iitSEl 

M>21A6BA 

1394 


LXIX 

A32 


UMVA 

FDZlSaaA 

1595 


LXIY 

ns 



OA389 

1594 


CALL 

ST4BCie 

;(A32(ITS)):c(BOE) 

u 


1597 

5 

LDA 

ITS 


u 


1598 

1 

CMi. 

HDHP 


u 


1399 

? 

CMX 

CRLF 


lUtEb 

onopon 

1400 


UM 

ns 

;CKXX HITERAnW COUKT 

uUlO 

X 

1401 


DR 

A 

iiMFl 

3288M 

1402 


STA 

ns 


iiS8F4 

FEOC 

1403 


CPI 

12 


iiS8F6 

CX088 

1404 


JKZ 

TPl 


U 


1405 

5 

CALL 

PQRTAQN 


iitSFf 

C9 

1404 


RET 



U 


1407 

PftRI3: 




uUKt 


1408 


m 

A 


U86FB 

328888 

1409 


STA 

ns 


U 


1410 

TP2: 




mSSFE 

I»215788 

1411 


LXIX 

PHTA14 


ami 

FS21888A 

1412 


un 

ITS 


a^m 

OBF89 

1413 


CALL 

LS2EOE 

;(60E}:°(A14<nS» 

ami 

04D89 

1414 


CAU. 

OSTACX 

?<BOE) omo X Bn STACX of T9S11 

amc 

I»21Ai8A 

1415 


im 

A32 


OJ910 

FS21888A 

1414 


un 

ITS 


08914 

06B89 

1417 


CALL 

L04K1S 

t<BOE):<<A32(ITS)) 

ii4917 

CD4DS9 

1418 


CALL 

OSTACX 

{(BCK) OHIO X Bn STACX OF T9S11 


07189 

1419 


CMJL 

ram 

\m X Bn INTEGERS TQOIHS 

iiS9U) 

HOMO 

1420 


UI 

0,10 


u6920 

010000 

1421 


LXI 

6,0 


08923 

04089 

1422 


CMl 

OSTACX 


08926 

O^E89 

1423 


CAU 

FIXOIV 

;0IVISE BY TS 

08929 

OSF89 

1424 


CMl 

UOSTACX 

;(BOE> HAS AVSAGE OF TS VMilES 

OB92C 

]»215788 

1423 


un 

PHTA14 


08930 

F0218880 

1424 


Lxn 

ns 


08934 

0»989 

1427 


CMl 

ST2BC1S 

;(BCK):*(A14(ITS)) 

08937 

PnooGn 

1428 


LDA 

ns 

;CHECX nSATIW COUNT 

u893A 

X 

1429 


OR 

A 

I 

0693B 

32888A 

1430 


STA 

ns 


0693E 

FEOC 

1431 


CPI 

12 


08940 

C2FE88 

1432 


JKZ 

TP2 


08943 

C9 

1433 


RH 



O 


1434 

T958USY: 




OM44 

F5 

1^ 


PUSH 

PSU 


0894S 

IMS 

1434 

I95BUSri 

: IH 

TFSllCrnPORT sINPUT THE STATUS WRO 

08S47 

B7 

1437 


ORA 

A 

;SET S FLAGS 

08948 

FMSS9 

1438 


JR 

T93SUST1 sBn 7 SET HEM6 T9511 

08946 

FI 

1439 


POP 

PSU 


0894C 

C9 

1440 


RET 



O 


1441 

SSTAO: 




08980 

F5 

1442 


PUSH 

PSU 


08)88. 

CD4489 

1443 


CMl 

T9SUSY ;UA1T IHTIL T9513 HOT 

08751 

7B 

1444 


ROV 

A,E 

•ISB TO STACX 

08852 

0X4 

1445 


OUT 

T9511DATAPST 

08754 

7ft 

1444 


ROV 

A.0 

:HEXT BYTE TO STACX 


80 



ii8955 

03S4 

1847 


XT 

T9511DATM>0RT 

4489^ 

79 

1848 


HQU 

A,C 5)ECT sic byte TO STACX OF T95 

448958 

0304 

1849 


OUT 

T9511DATM>0RT 

4489SA 

78 

1850 


KM 

A,B ;Hffl BYTE TO STACX OF T95il 


03>4 

1851 


OUT 

T9511DATMWT 

44895D 

FI 

1852 


P0» 

PSU 

4^95E 

C9 

1853 


RET 


U 


1854 

UDSTACt: 



m895F 

F5 

1855 


PUSH 

PSU 

U8980 

C04489 

1858 


CMX 

T95BUSY ;HAIT IKTIL T9511 HOT BUSY 

u8983 

0804 

1857 


IN 

T9511DATAP0RI ;«SB FRDK STACX OF T9511 

448985 

47 

1858 


KN 

B,A 

448988 

]ffi04 

1859 


IN 

T95110ATAP0RI ^iffiXT BYTE FROH STACX OF T9511 

448988 

« 

1880 


HDV 

C^ 

448989 

ISD4 

1881 


IN 

T951iOATM>ORT ;NEXT BYTE FROH STACX Iff T9511 

44898B 

57 

1882 


KM 

0>A 

44898C 

0804 

1883 


IN 

T9511DATAP0RT 

44898E 

5F 

1884 


KM 

E^ 

44898F 

FI 

1885 


POP 

PSU 

448970 

C9 

1888 


RET 


44 


1887 

FIXADD: 



448971 

F5 

1888 


PUSH 

PSU 

448972 

CD4489 

1889 


CALL 

T95BUSY 

448975 

3^ 

1870 


nvi 

A,02CH ;32 BIT FIX POINT ADD 

448977 

02)5 

1871 


OUT 

0D5H ; 

448979 

CDFC89 

1872 


CALL 

STAT 

84897C 

FI 

1873 


POP 

PSU 

44897S 

C9 

1874 


RET 


44 


1875 

FIXDIV: 



44897E 

F5 

1878 


PUSH 

PSU 

44897F 

CD4489 

1877 


CALL 

T95BUSY 

448982 

3BF 

1878 


nvi 

A,02H ;32 BH FIX POINT DIVIDE 

448984 

0305 

1879 


OUT 

0D5H 5 

448988 

CDFC89 

1880 


CALL 

STAT 

448989 

FI 

1881 


POP 

PSU 

44S98A 

C9 

1882 


RET 


44 


1883 

LD«CK: 



44 


1884 

5 



44 


1885 

;THIS SUERQUnNE UWDS A 32 BH tfm ELBSR INTO 

44 


1888 

;IHE REGISTERS BCOE. RECISTBi B WS HOST SIGHIFICAKT BYTE> 

44 


1887 

;RECI5TER £ HAS THE LEAST SIGNIFICMT BYTE. 

44 


1888 

1 



44 


1889 

;THIS SUBROUTINE IMS A CMUNG SBXBCE 

44 


1890 


LXIX 

A32 

44 


1891 


LXIY 

ITER 

44 


1892 


CALL 

L04BCDE 

448988 

F5 

1893 


PUSH 

PSU 

44898C 

B 

1894 


PUSH 

H 

44 


1895 




44898D 

F08E0O 

1898 


KMRT 

L^O 

448990 

FD8801 

1897 


KMRY 

H4 ;(M.):-CONTBRS(nER> 

44 


1898 




448993 

29 

1899 


DM) 

H 

448994 

29 

1700 


DM) 

H ;<».>:MtCONTB<TS(IT£R) 

44 


1701 




448995 

OKS 

1702 


PUSHX 


448997 

a 

1703 


POP 

B ;<BC)::<IX) 

44 


1704 




448998 

09 

1705 


DAD 


44 


1708 




44 


1707 




448999 

SE 

1706 


KM 

E^ 

44899A 

23 

1709 


IHX 

H 

448998 

58 

1710 


KM 

0^ 

44899C 

23 

17U 


nx 

H 

448990 

4E 

1712 


KM 

CJI 


81 



ii£99t 

23 

1713 

INX 

H 

ii899F 

46 

1714 

m 

BPI ;<BCDE):M4 BYTES OF A32<I)) 

a 


171S 



iiSfAO 

El 

17U 

POP 

H 

iiM«l 

FI 

1717 

POP 

PSU 

U89A2 

C9 

1718 

RET 


U 


1719 

ST4BCie: 


u 


1720 

5 


u 


1721 

;THIS SUBREUTBC 

STORES 1>C REGISTERS BCSE INTO A 32 BH MRAY ELEICHT 

ii 


1722 

? IfflCISTER B WS HOST SiaiFICWT BYTE, 

U, 


1723 

;REGISTER E HAS TIC LEAST SlGHIFICMir BYTE. 

u 


1724 

f 


u 


1725 

fvas SUHOinNE has a cmuhc seobce 

ii 


1728 

) UIX 

A32 

ii 


1727 

? UIY 

ITER 

ii 


1728 

; CMl 

ST4BC0E 

ii£MQ 

F5 

1729 

PUSH 

PSU 

UKM 

ES 

1730 

PUSH 

H 

ii&ilS 

C5 

1731 

PUSH 

B 

iijm> 

D5 

1732 

PUSH 

D 

ii 


1733 



ujm 

FDiEOO 

1734 

KMn 

L,0 

mA9M 

FS^l 

1735 

nOKY 

H,1 ;<ffl.);»COHTSnS(IT®) 

u, 


1738 




29 

1737 

SAD 

H 

uXHS. 

29 

1738 

DM 

H ;(HU:>4C0HTSITS(ITS) 

ii 


1739 



umf 

D)^ 

1740 

PUSHX 


iiimi 

Cl 

1741 

POP 

B ;<BC):-<IX) 

ii 


1742 



aam 

09 

1743 

SAD 

B ;(».}:>A32<ITER} 

ii 


1744 



iiS983 

SI 

1745 

POP 

D 

um* 

73 

1748 

HQV 

H,E 


23 

1747 

INX 

H 

iiArn 

72 

1748 

MOV 

H,D 

mm 

23 

1749 

INX 

H 

ii 


1750 



mm 

Cl 

1751 

POP 

B 

mm 

71 

1752 

NOV 

«>c 

mm 

23 

1753 

INX 

H 

mm 

70 

1754 

HOU 

n,B 

ii 


1755 



mm 

£1 

1758 

POP 

H 

uA9BD 

FI 

1757 

POP 

PSU 

iim 

C9 

1758 

RET 


ii 


1759 



ii 


1780 

LB2BOC: 


a 


1781 

5 


ii 


1782 

;THIS SWQUTINE LOADS A 18 BIT ARRAY ELSCHT DUD THE REGISTSS BCSE. 

ii 


1783 

*,RECISTER BC NAS 18 Bn ZERO 

ii 


1784 

sRECISTS DE HAS TIC 18 BIT IHIECS. 

ii 


y85 

f 


ii 


1788 

:TNIS aCROUTSC HAS A CMUNG SEOCNCE 

ii 


1787 

; UIX 

PNTA18 

ii 


1788 

; UIY 

ITER 

ii 


1789 

; CMl 

LD2BCDE 

m9BF 

F5 

1770 

PUSH 

PSU 

UKCO 

E3 

1771 

PUSH 

H 

ii 


1772 



ii89a 

006EOO 

1773 

i«Ma 

L,0 

UB9C4 

I»6&01 

1774 

MMC( 

H,1 ;(HL)::ADDR(A18) 

ii 


1775 



mm 

EB 

1778 

XQC 

;<1C):<MDR(A18) 

ii 


1777 



mxs 

FD6E00 

1778 

Hm 

L.0 


82 



i^9CB 

m60i 

1779 


tOJRf 

H,1 

;(».):Ga(ra<TS(r^) 

u 


17fi0 




iiA9C£ 

» 

1741 


DM) 

H 

?<a)s=2»GOHTBITS(nHO 

LL 


1782 





UAsce 

19 

1783 


DAD 

D 

;(».) :=ADDR(A16)>2«C0NTBirS(nER) 

u 


1784 





u 


1785 





uMO 

SE 

1786 


NOM 

E>H 


uAm 

23 

1787 


INX 

H 


iiAm 

Si 

1788 


NOV 

D^ 

;<DE) LQAI7D UITH 16 Bn INTEGER 

u 


1789 




;UN0SE M»R£SS IS IN (HU 

u 


1790 





uS9V3 

010000 

1791 


LXI 

B,0 

;<BC> SET TO 0 

ii 


1792 




ums 

£1 

1793 


POP 

H 


ujm 

FI 

1794 


POP 

PSU 


ujbm 

C9 

1795 


1ST 



'LL 


1796 

ST2ECDE: 



li 


1797 





u 


1798 

;1HIS SmVTINE LOADS VS REGISTERS H3)E IHTO A 16 BH ftm ELSSC. 

U 


1799 

;RECISTER BC IMS 16 BH ZS«} 


U 


1800 

^ISTS BE THE 16 Bn IKTEGS. 

U 


1801 

5 




U 


1802 

:THIS SUEHUmS WS A CALLING SEOmE 

U 


1803 


LXIX 

PNTA16 


U 


1804 

> 

Lxn 

ITER 


U 


1805 


CALL 

LD2BCDE 


um9 

F5 

1806 


PUSH 

PSU 


amtk 

ES 

1807 


PUSH 

H 


utm 

CS 

1808 


PUSH 

B 


ii£9SC 

S5 

1809 


PUSH 

D 


u 


1810 





u 


1811 





uma 

SOiEOO 

1812 


NOWX 

L,0 


ua9fio 

I»6601 

1813 


HOVRX 

H,1 

;<HL)::|^(Ai6) 

u 


1814 





ium 

B 

1815 


XCNG 


;(DE):^M)DR(A16) 

u 


1816 





U89E4 

msoo 

1817 


KMIY 

L,0 


liArn 

miol 

1818 


nnMY 

H,1 

;<HL):°COHTSRS(ITER) 

U 


1819 




UAWi 

29 

1820 


DM) 

H 

;<a):>2«C0HIBaS<nB» 

ii 


1821 





iitm 

19 

1822 


DM) 

D 

;<«.) :<a>CaHT5(ISaTS0MDR(A16) 

ii 


1823 





UA9EC 

Si 

1824 


POP 

D 

^iESTORE K PAIR AS n UAS OH OdBIING 

ii 


1825 





ii 


1826 





UB9B 

73 

1827 


HGV 

N,E 


Ud9£E 

23 

1828 


INX 

H 


iiJSm 

72 

1829 


NOV 

R,D 

;<K) STORED AT AI»RESS COHTAIHED IN («.) 

ii 


1830 





asm 

Cl 

1831 


POP 

B 

^RESTORE BC 

asm 

El 

1832 


POP 

H 


iiZm 

FI 

1833 


POP 

PSU 



C9 

1834 


RET 



ii 


1«S 

am 




ii 


1836 





ii 


1837 

;THIS SraiOUTINE tVfi A CALLING SEQUBCE 

ii 


1838 


m 

H,A32 


ii 


1839 


LXI 

B^48 


ii 


1840 

y 

CALL 

CLEM 


ii 


1841 

y 




ii 


1842 

.•THIS 9SR0UTI1E CLEMS Ml MRAY 17 32 Bn ELBSITS. 

ii 


1843 


IS TtS BASE ADDRESS 


ii 


1844 

:BC 

IS HON WMY BYTES TO ZERO 


83 



u 


1M5 

5 




a 


1M4 





Ua9F4 

54 

1S47 


mu 

0;H 


HS9T5 

5D 

1848 


mu 

E,L 


iit9F6 

13 

1849 


OK 

0 

;<DE)::(M,)+1 

ii 


1850 





iifl9F7 

3400 

1851 


mi 

H,OOH 

;ZER0 INITIAL LOCATION 

US9F9 

WK 

1852 


LOIR 


^ ZS« ALL 48 SYTES 

M 


1853 




uxm 

C? 

1854 


liET 



u, 


1855 

STAT: 




U89rc 

F5 

1854 


FUSH 

PSU 


uS9n> 

E5 

1857 


PUSH 

H 


uS9FE 

mis 

1858 

STAT2: 

n 

«5H 


iiaAOO 

B7 

1859 


ORA 

A 


MaMi 

MFE89 

1840 


<01 

STATE 


ufiMM 

E41E 

1841 


4NI 

OlSi 

^ISOLATE BIT 4^, 2,1 

uittA 

CAOESA 

1842 


SI 

STATl 

uM09 

3S4 

1843 


mi 

A,T 


iiSAOB 

CS0B8& 

1844 


CAU 

CO 


ii. 


1845 

SIAH: 




iijm. 

El 

1844 


POP 

H 


iiittX 

FI 

1847 


POP 

PSU 


iiSAlO 

C9 

1848 


PET 



ii 


1849 

AUGH: 




uMll 

F5 

1870 


FUSH 

PSU 


iilM2 

3E01 

1871 


IWI 

A,01H 


mM14 

DSM 

1872 


OUT 

(H>4H 


iiMli 

3EOO 

1873 


mi 

A^OON 


uaM8 


1874 


CUT 

C04H 


iiMlA 

3E1D 

1875 


IWI 

A,010H 


iiaAiC 

ms 

1874 


OUT 

005H 


iitME 

CD44S9 

1877 


CALL 

T95BUST 


ii 


1878 

W: 




atfoi 

»D4 

1879 


n 



iiifSS 

FGOl 

1880 


CPI 

OlH 


iiuas 

CA218A 

1881 


JZ 

HH 


iittSA 

FI 

1882 


POP 

PSU 


iittsa 

C9 

1883 


liET 



ii 


1884 

K: 




ii 


1885 

? 

URITE HESSAGE (X 


iiMlh 

05 

1884 


PUSH 

0 


aem 

11F48A 

1887 


va 

D>QIAY 


iiuai 

CD4AaA 

1888 


CALL 

RSG 


iijuai 

CD2A8F 

1889 


CMl 

CRU 


iUtM 

01 

1890 


POP 

0 


iittas 

C9 

1891 


RET 



ii 


1892 

OdC: 




ii 


1893 

1 

HRITE ffiSSAS DONE 


iM36 

05 

1894 


PU9I 

0 


iiitSS! 

IIFBSA 

1895 


LXI 

O^OONEE 


UJttak 

C04A6A 

1894 


CALL 

NSC 


iiitCSi 

01 

1897 


POP 

0 


uMSS, 

C9 

1898 


RET 



uM3F 

3E4F 

1899 


HUI 

A, 'O' 


umi 

CD0B88 

1900 


CAa 

CO 


U6M4 

3E4B 

1901 


nui 

A/r 


uM4& 

CD0BS8 

1902 


CAU. 

CO 


iittm 

ii 

C9 

1903 


RET 




ItW 





ii 


1905 




5 

ii 


1904 

1 




ii 


1907 




PRINT AKSSAIX OH CONSOX. 

ii 


1908 




D-REGISTS POIKTS TO BYTE CONTAINING LENGTH 

ii 


1909 

• 



W NESSAGE. mSSACE IS IN TIS BYTESFOaOUIW 

ii 


1910 




LB4GTH BYTE. 
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u. 

u. 

a 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

4L8A4A 

F3 

iiJUM 

ES 

iitMC 

S3 

u8A4D 

lA 

iL8A4E 

47 

U8A4F 

13 

ii 

iiiteo 

lA 

LL8A51 

CD0B88 

iittSi 

13 

Li8AS5 

25 

ii 

m8A64 

C2S08A 

LL8A59 

01 

LL8A5A 

El 

LL8ASB 

FI 

LL8A5C 

C9 

ii 

m8ASS 

F5 

U8A5E 

78 

uxer 

CD0987 

U8A42 

79 

ii8A43 

CB09S7 

i4M44 

7A 

ii8A47 

CB0987 

LL8A4A 

7B 

Li8A4B 

CS0987 

LL8A4E 

CB2A87 

u8A71 

FI 

U8A72 

C9 

ii 

iittin 

F5 

iUtJi 

3E80 

iL8A74 

D3EB 

u8A78 

FI 

m8A79 

C9 

ii 

ii8A7A 

F3 

mm 

3E00 

mm 

03E8 

mm 

FI 

mm 

C9 

ii 

Li8A81 

F5 

mm 

3EFF 

mm 

03E8 

mm 

FI 

mm 

C9 

mm 

0000 

mm 

0000 

mm 


448857 

448AK 

0100 

448A90 

0200 


1911 

1912 

1913 

1914 

1913 

1914 
1917 

1915 

1919 

1920 

1921 

vm 

im 

1924 

1923 

1924 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1933 

1934 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 
1944 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 
1934 

1957 

1958 

1959 

1940 

1941 

1942 

1943 

1944 

1945 
1944 

1947 

1948 

1949 

1970 

1971 

1972 

1973 

1974 
lOT 


CAIUNC SEQUENCE 
LXI 

tm nsG 

DONE: SB LGTH,'S(ME’ 

LCIH EQU i-(SONEtl) 




RSGt PUSH 
PUSH H 
PUSH S 
UMX 
HOV 
INX 

HSGO: UMX 

CMi. 

IKX 

BCR 

XL 

POP 

POP 

POP 

RET 

tOOffi: 

PUSH 

nov 

CftU. 

HDV 

<m 

HDV 

CMI 

HOU 

CML 

CALL 

POP 

RET 

DOTPORTA: 

PUSH 

HVI 

OUT 

POP 

RET 

PORTAGH: 

PUSH 

HVI 

OUT 

POP 

RET 

PORTAQPF: 

PUSH 

WI 

OUT 

POP 

1ST 

ITER: DU 

1: BU 

PHTA32: , BU 

PHTA14: EQU 

A14: BU 


PSU ;SAVE STATUS AW A REC 


B ;GET LENGTH OF tSSSAGE 

H,A ;SAVE IT IH H 

S ;POIHT TO FIRST BYTE lESSAGE 

; TO OUTPUT 

0 ;BYTE OF HESSAffi INTO A 

CO ; OUTPUT OM 
S ;POIHT TO NEH BYTE 

H ; HUHBER OF CHARS TO BE OUTPUT 

; DIKINIS)€D BY ONE 
HSGO ;BRM01 IF THBS ARE 

S 
H 

PSU 


PSU 

A,B 

WtP 

»»> 

mf 

WH> 

CRLF 

PSU 


PSU 

A,080H 

(SBH 

PSi 


PSU 

A^ 

PSU 


PSU 

A,WFH 

(«8H 

PSU 

0 

0 

A32 

SAVEDE 

01H,02H,03H,04H,05H,04H>07H,08H,09H,OAH,»<,OCH 
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0300 
uOAM (MOO 
uJtMk 0500 
Umh 0600 
Uitfiti 0700 
ii£Mt OaOO 
utm 0900 
mOMO OAOO 
U0M2 (»00 
iiMM OCOO 


uttM 


\m 

A32: DS 

4*20 

iiom 


1977 

T9511CTRU>0RT EU 

ODSH 

urn* 


1978 

T9SllSATAPtKf EQU 

0D4H 

uUSi 

04 

1979 

OKAY: DB 

4/0K';CR,LF 

utm 

4F4B 




UUf9 

W 




U8AFA 

OA 




mOAFB 

06 

1980 

BQHEE: BB 

6/IXHE°;CR|If 


6iOAFC 444F4E4S 


UOBOO OD 
UOBOX OA 


m.9000 

1981 

GR(; 

9000H 

169000 

1982 

BUFFO: SS 

2048*10 

16 

16 0Q0«RS 
6 

1983 

BIS 


IRY TcO.53/3.15 09:23:38 




i 
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o n 


GENERIC TRAJECTORY (B.2) 


FILE: GTSAJ1 FORTRAN A1 PRINCETON GNIVESSITI TIME-SHARING SYSTEM 


COHMON/CGH/C 12 000) 

COMaOVOEGREE/DOMMY2 (5) 

coMaoN/RK/DaaaY4 (112) 

COMMON/RUNO01/DUMJ1Y8 (1) 

C 

235 CONTINUE 

CALL MYINIT 
CALL MYRON 
GOTO 235 
END 

SOEROUTINE MYINIT 
CALL INPT 
CALI. IN IT 
CALL DYNAHI 
RETURN 
ENE 

SOB ROUTINE MYRON 
COMMON/COa/C (2000) 

COtiaON/RUNCOT/BAN 

COMMON/STNAV/XST (7) ,YST(7),ZST (7) ,DIREQ(7) , ISTDME, ISTVCR 
1 ,R1 (4 0) , NOYES (4 0) , SIGMA (4 0) 

COMMON/DOOBLE/DSESD, DOS 
BOOELE PRECISION DSSED^DDS 
EQUIVALENCE (C(203) ,TIME) , (C (207) ,N3T£P) 

EQUIVALENCE (C(211) ,TIMPR), (C (212) ,IIMPLT) , (C(213) ,TIMITY) 
EQUIVALENCE (C (241) ,J1) , (C (244) ,TiaSOF) 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦^j^MPORAEILY : 

DO 259 1=1,40 
259 R1 <I)=0. 

C 

DAN=0. 

C 

CALL ERROR 
C 

242 CONTINUE 

IF (TIME. LT.TiaSO?) GOTO 82 
DAN=2. 

CALL OOTPT 
CALL PINT 
GOTO 100 
C 

82 CONTINUE 
C 

C***NCISE HAS TO BE DRAWN FROM SANBCll GIN FOR EACH CKANN EVERY DT AND 
C***B£ AVAILABLE FOR SOBHOOTINE OUTPT AT WHATEVER REQUIRED RECORDING 
€*♦ ♦INSTANTS. 

C**»**CALL GGNPM (DSEED,30,fi1) 

DSEEB=DSE£D+CDS 

C 

CAII LOGIC 
C***R.K. LOOP 
C 


GT 
Gl 
GT 
G1 
GT 
G1 
GT 
GT 
GT 
GT 
GT 
GI 
GT 
GT 
GT 
GT 
GT 
GT 
GI 
GT 
GI 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GI 
G 1 
GT 
GT 
GT 
G I 
GT 
GT 
GT 
GT 
GT 
GT 

g:c 

GT 

GT 

GT 

GT 

GT 

GT 

GI 

GT 

GT 

GT 

G'^ 

GT 

GT 


DO 246 J=1,4 
J1=J 
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n n 


FILE: 

c 

246 
100 


C 

c 


GTEAJ1 FOHIEAN A1 PRINCETON ONIVEBSITZ TINE-SHASING SYSTEM 


CALL ROTAT 
CALL DIN AM 

IF(TIME.LE.O.) CALL OOfPT 

CALL EKG 

CONIINOE 


NSIEP=NSTEP+1 

IF (TIME,LE.TIflPS. AND. TIME. IS. TIMPLT. AND. TIME.LE. TIM TTY) GOTO 24 2 

CALL OOTPT 

GOTO 242 

CONTINUE 

RETURN 

END 

BLOCK DATA 

COMMON/DEGEEE/TETO,QO(50) ,P3I0J,PHI0J, vjPOJ (50) ,«B0J (50 ) 
COMMON/PROG/TACCX (50) ,TACCY(50) ,TACCZ (50) ,TPSCG(50) , 

1HPC (50) ,WEC (50) ,WQC(50),NTiaE,TSWTCH(15) , iSNICH 
COMMON/COM/C (2000) 

COMMON/ALEET/XBETA,ZBETA,XALPHA, YALPHA 

COMMON/STNAV/XST (7) , YST{7) ,ZST (7) ,DIfiEQ (7) ,ISTDKE,IST VOR 

1, R1 (40) , NOYES (40) ,SIGMA(40) 

CO MflO N/DCUBL E/DSE ED, DDS 
DOUBLE PRECISION DSEED,DDS 

EQUIVALENCE (C (202) , NRATE) 

EQUIVALENCE (C (214) , DTPS) , (C(215) ,DTELT) , (C(216) ,DTTTY) 
EQUIVALENCE (C(220) , IPE) , (C (244) ,TIMSCF) 

EQUIVALENCE (C (341), HO) , (C{347) ,XE0) , {C{348),YE0) 

EQUIVALENCE (C(277) ,DSPED0) , (C(278) ,VSPED0) , (C(279) ,WSPED0) 

DATA HO/116./, TIMSCF/60. /, IETO/1 0./ ,PS lO J/0 ./, P HIO 0/ 1 2. 7/ , 
1NTIMS/15/,0SPED0/125./,VSPED0/0./,WSPED0/ 12./ 

2, TPEOG/0. ,6C. ,61. ,100., 101., 160., 161,, 4 3*600./, 

6Q0/2*.6, 2*0, ,2*. 6,44*0./, 

7HP0J/2*->.5,2*0.,2*.5,44*0./, 

9«E0J/2*2.86, 2*0. , 2*-2.86, 44*0./, 

ETACCX/2*. 179, 2*. 096, 2*. 179, 2*-. 206, 42*. 2/, 

CTACCY/40+0., 10*0./, 

CTACCZ/2*-1.003,2*-.994,2*-1. 003,2*-. 985,42*-1./ 

DATA NRA i£/2 0/,DTPE/400./, DIPL T/400./,D ITT Y/1./, 

1IPR/1/ 

2, XBlTA/0./,ZB£TA/0./,XALPHA/0./, YALPHA/O./ 

3, XST/7*120000./ 

4, YST/7*1200CG./ 

5, ZST/7*0./ 

6, DIREQ/7*32./ 

7,I£TDME/ 1/,ISTVOR/V 

DATA DSEED/1.D0/,DDS/1.D0/,NOYES/40*0/,SIGMA/40*0./ 

DATA ISWTCH/1/,TSWTCH/15*600./ 

1,XE0/0./, YEO/0./ 

END 

SUBROUTINE INPT 
INTEGER FILE (6), GO 


GTE 

GTE 

GTR 

GTE 

GTE 

G?E 

GTE 

GTE 

GTE 

GTR 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTR 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTB^ 

GTE 

GTE: 

GTE 

GTS* 

GTE 

GTE 

GTE 

GTE 

GTE' 

GTE 

GTEi 

GTR 

GTFr 

GTE 

GTE 

GTS' 

GTE 

GTE' 

GTH 
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PILE: GIEAJ1 FOEIEAN A1 PRINCETCH UNIVEBSITI TlJi I- SHASIN G SYSTEM 

LOGICAL SOP G1 

DIMENSION NAMS(3) ,LNAME{4) Gl 

C G'l 

COMMON/COM/C (2000) G1 

COMMON/D£GREE/TET0,Q0 (50) , PSIOJ, PHIOJ, WPOJ (50) ^ WROJ (50) GI 

COMMON/PgGG/TACCX (50) ,TACCY(50) ,TACCZ (50) ,TPHOG(50) , O'] 

1WPC (50) (50) ,WQC (50) , S II ME ,TSWTCH ( 15) ,ISWTCH GI 

COMMGN/ALBEI/XBETA,ZBETA, XALPHA, YALP BA GI 

COMMON/STNAV/XST(7),YST(7),ZST(7) ,DIBEQ(7) ,ISTDM E,ISTVOB GI 

1 ,E 1 (40) , NOYES (40) , SIGMA (40) G'l 

COMMON/DOUEL£/DSEED,DDS GI 

DOOBXE PRECISION CSE1D,DDS GI 

C GI 

EQDIVALENCE (C (2 02) , NR ATE) GI 

EQDIVALENCE (C (2 1 4) , DTPR) , (C ( 2 1 5) , DT ELT) , ( C (2 1 6) , DTTT Y) GI 

EQUIVALENCE (C (220) ,IPE) , (C (243) ,IF2) , (C (244) , IIMSOF) GI 

EQUIVALENCE (C (34 1) , HO) , (C ( 347) ,XE0 ) , (C (3 4 8) , YEO) GI 

EQUIVALENCE (C(277) ,OSPEDO) , (C(278) , ySPIDQ) , {C (219) ,WS?ED0) GI 

C GI 

N AMiLIST/INE/PILE GI 

NAMELIS!i/INCN/HO,TETO,QO,TIMSOF,PSIOJ,PaiOa,W?OJ,8ROJ, GI 

1TACCX,TACCY,TACC2,NTIflE,TPEOG,DSP.FDO,VSPEDO,HSP£EO GI 

2, XB£TA,ZBETA,XALPHA,YALPHA GI 

3, XSI, YSl,ZST,DISEa,ISTDME,ISTYOB GI 

4, TSRTCH,XEC,YE0 GI 

NAMELIST/P AEM/NRATI,DTTTY,DTPR,DTPLT, IPS, DSEED, DCS, NOYES, SIGMA GI 

C GI 

DATA NAME/4HINCN, 4HPASM, 4fl ,4H ,4B ,4H ,4H ,4H /GI 

235 CONTINUE GI 

PRINT 502 GI 

502 FORMAT (1H ,«TO CONTINUE ENTER F,TO STOP ENTER I») GI 

READ 503,SGF GI 

503 FORMAT (LI) GI 

IF (SO?) STOP GI 

PRINT 500 GI 

500 FORMAT (1H , •ENTER DESIRED FILES IN NAMEIIST INP*,/) GI 

READ(5,INP) GI 

IF1=FILE(1) GI 

IF2=FI1B(2) GI 

IF3=FILE(3) GI 

IF4=FILE(4) GI 

IF5=FILE(5) GI 

IF 6= FILE (6) GI 

DO 2 20 1=1, 2 GI 

LNAMI (I) = NAME (I) GI 

220 CONTINUE GI 

C GI 

IF (IE1 .EQ.5) PRINT 501,LN AME GI 

501 FORMAT (1H , ‘ENTER NAMELISTS »,A4,A4,’IN THIS ORDER*,/) GI 

IF (IF3,NE. C)READ(I?1,INCN) GI 

IF (IF4,NE.0)READ(IF1,PASM) GI 

C GI 

PRINT 504 , GI 

504 FORMAT (1H ,'TO RUN ENTER 1,TO MODIFY INPUT DATA ENTER 0») GI 

READ 505, GO GI 
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FILE: GTEAJI 


FOBTEAN A1 PHINCSXON UNIVERSITY IIME-SH AEl NG SYSTEM 


505 FORMAT (II) GTE 

IF(GO.N£. 1) GCTC 235 GIB 

El TURN GTE 

EMC GTB 

SOBEOOTINE INIT GTB 

DIMENSION IPL (100) ,IPD(100) GTE 

COHSON/COM/C (2000) GTE 

COMMON/DEGRIE/TETO ,Q0 (50) , PSI OJ , PHI OJ , »P0J (50) , »E0J (50) GTS 

COMMCN/PEOG/TACCX (50) ,TACCY(50) ,TACCZ (50) ,TPEOG(50) ,SPC (50) , GTE 

1WEC(50) ,«QC (50) ,NTIME,TSNICH (15) ,ISWTCH GTE 

COMMON/SK/ARK(4) , BEK (4) ,CRK (4) ,QRK (100) GTB 

C GTB 

EQUIVALENCE (C(2 01),N) GTE 

EQUIVALENCE (C (202) ^NRATE) , (C (203) ,TIME) , (C (204) , TIMED) GTE 

EQUIVALENCE (C (2 05 ) , DT) , (C (207) , NSTE P) GTE 

EQUIVALENCE (C(21 1) ,TIMPR) , (C (212) ,TIMPLT) , (C(213) , TIMTTY) GTS 

EQUIVALENCE (C (2 1 4 ) ,DTPR) , (C (2 15) , DT PLT) , (C (2 1 6) , DTTT Y) GTB 

EQUIVALENCE (C(217) ,LINE) , (C (218) ,NPBINI) , (C (219) ,NPLOT) GTE 

EQUIVALENCE (C (222) , NSQ2) GTE 

EQUIVALENCE (C (242) ,CEAD) , (C (370) ,GSAV1) , (C (319) ,THET0) GTE 

EQUIVALENCE (C (3 18) , PHIO) , (C (320) ,PSI0) GTE 

C GTE 

GEAV1=32. 17 GTE 

C GTB 

AEK(1)=.5 GTE 

AEK (2) = 1.-1,/SQRT(2.) GTE 

AEK(3) = 1. + 1./SQBT(2.) GTB 

AEK(4) = 1./6- GTB 

BEK(1) = 2. GTE 

BSK(2) = U GTE 

BRK(3) = 1. GTE 

BEK (4) =2. GTE 

CSK (1)=ARK (1 ) GTE 

CRK(2)=ARK(2) GTE 

CRK (3)=AEK (3) GTE 

CSK{4) =AEK (1) GTE 

DO 229 1=1,100 GTE 

229 QEK(I)=0. GTE 

C GTE 

NSQ2=1 GTB 

C GTE 

PI=4.*ATAN ( 1.) GTE 

CEAD=180./PI GTE 

TaiT0'=IET0/CRAD GTE 

PSI0=PSI0J/CEAE GTE 

PHI0=PfiI0J/CEAD GTE 

DO 248 I=1,NTIME GTB 

»PC(I) =WPOJ(I)/CRAD GTB 

WQC (I)=Q0 (I)/CEAD GTE 

248 NEC (I) =»E0J (I)/CEAD GTE 

C GTE 

IP1(1)=203 GTE 

IPD(1)=204 GTE 

N=1 GTE 

C(1)=IPL(1) GTB 
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PCfilEAN A1 PEIMCEXON ONIVIESIfY IIME-SHARIHG 3YS2SM 


C (101) =IPD ( 1) GT 

!TI?5E=0. G2 

GT 

NSTEP=0 GY 

NEA'r=NEa'l£ G1 

DT= 1 ./FLOAT (NEAT) GT 

C GI 

NPEISI=a GT 

NPIOT=0 GT 

LIN.E=60 GT 

TIMPR=BTPB--5*DT GI 

TIilPLI=DTPLI-.5*DT GT 

TX53TTY=DTTfY-.5*DT GI 

IF(ETTTY.GT.50.) TI i1TTY= 1 000. GT 

C GT 

SET OF N GT 

ESB GT 

30BBOUT1NE EfiHOE GT 

PRINT 507 GT 

507 FOE«AT(1fl ,»HONNING NOW',/) GT 

EETUfiN GT 

END GT 

SOBSOUTINE DYNAMI GT 

DIHENSIGN IPL (100) ,IPD{100) GT 

COHMON/COM/C (2000) GT 

EQOIVALENCE (C (20 1) ,N) GT 

EQDI VALENCE (C(2 05),DT) GI 

EQOIVALENCE (C (3 tl) , TET) , (C (3 19) ETO) , (C ( 3 12) , PHI) GT 

EQOIVALENCE (C (3 1 8) , PHIO) , (C (310) , PSI) , (C ( 320) , PSIO) GT 

EQOIVALENCE (C (33 4) , XE) , (C (335) ,11) , (C (33 6) , Zl) GT 

EQOIVALENCE (C (34 1), HO), (C(343),Ha) , (C(347),XE0) , (C(34 8) ,YEO) GI 

EQOIVALENCE (C(271) ,OSPEED) , (C (277) , OSPEDO) , {€{212) ,VSPEED) GT 

EQOIVALENCE (C (278) ,VSPEDO) , (C(27 3) ,W3PESD) , (C(279) ,WSPEBO) GT 

C GT 

N= N+ 1 GT 

IPL(N) = 310 GT 

IPD(N)=314 GT 

N=N + 1 GT 

IPL (N) =3 11 GT 

IPC(N)=315 GT 

N=N+1 GT 

IPL (N) =3 12 GT 

IPD(N)=316 GT 

N= N+ 1 GT 

IPI(N) = 271 GT 

I PD (N) =27 4 GT 

N=N + 1 GT 

IPL (N) =272 GT 

IPB(N)=275 GT 

N=H+1 GT 

IPL(N) = 273 GT 

IPB(N)=276 GT 

N=N+1 GT 

IPL(N) = 334 GT 

IPD(N)=337 GT 
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S=84l 

IE1(N) = 335 
IPD(N) = 338 
N=8 + 1 

IPL <N)=336 
IPB (N)=339 
C 

TET=THIT0 

PS3=PSI0 

PHI=PHI0 

XE=O0 

lE^IEO 

ZE=-KO 

HH=H0 

C 

tJSPBED^OSPBEO 

VSPE£D=VSPECO 

«SPIED=«SPEDO 

C 

DO 111 1=2, N 
C{I)=IPL(I) 

111 c{ioo+i)=ipr (I) 
c 

RETURN 

END 

SOESOOTINE LOGIC 
COMMOS/CCH/C (2000) 

CO«HON/PROG/TACCX (50) ,TiCCY{50) ,TACCZ (50) ,IEEOG(50) , 
lilPC (50) ,HEC (5 0) ,WQC(50) ,N TIME, TSWTCH ( 15) , ISBTCH 
EQUIVALENCE (C (302) ,BQ) , (C (303) ,»S) , (C (30 1) ,BP) 

EQUIVALENCE (C (531) ,ACCX) , (G(532) , ACCY) , (C (533) , ACCZ) 

EQUIVALENCE (C(203) ,TIMS) , (C (311) ,TET) 

EQUIVALENCE (C(312) ,PHI) , (C(272) ,VSPESD) , (C(205) ,DT) 

IF(TIME.LT.fSWTCH(ISHTCH) )GCIC 11 

IP (ISWTC8.EQ.1)GOTO 12 

IF (I3STCH. EQ.2)GOTO 13 

PHI=0. 

fET=-, 1745 

ISHTCH=ISHTCH+1 

GOTO 11 

13 Pfll=12,7*. 01745 
TET=.1745 
ISWTCH=I3SiiICfj+1 
GOTO 1 1 
12 PHI=0. 

TST=.096 
ISiTCH=ISMTCH4l 
11 CONTINUE 

C***FOR THIS N.L. MODEL TRANSITION BETWEEN COMPUTATIONALLY PREDICTED 
C***STEADY STATES WILL ANYWAY BE ARTIFICIAL. THUS, THE TSWTCH-OPTION 
C**»IS DEFF ERRED AND ONLY THE FIRST SQUINT-SEGM £NT IS USED IN EACH EON 
C***EESOITS OF AIL BUNS APPEND TO EACH OTHER CN FILE 10('DISP MOD»- 
C***OPTICN OF FILEDEF-BEFORE THE CONSECUTIVE RUNS OF THE JOB). 

C***THE CREATED FILE HAS ALL D ATA-VAEI AEL £3 OF A GIVEN INSTANT AS A 
C***E£C0ED. IT*S COMPATIBLE WITH APL-LI NPLOT (BL AN KS BETWEEN VALDES), 


GTE 

GTE 

GTR 

GT E 

GTR 

GTE 

GTE 

GTR 

GTE 

GTR 

GTR 

GTR 

GTE 

GTE 

GTR 

GTE 

GTE 

GIB 

GTE 

GTR 

GTE 

GTE 

GTE 

GTE 

GTE 

GTE 

GTS 

GTE 

GTE 

GTE 

GTS 

GTE^ 

GTS 

GTEi 

GTR 

GTE 

GTE 

GTE 

GTS 

GTE 

GTE- 

GTR 
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GTS 

GTE 

GTE 

GTE* 
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GTE 

GTE- 
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GTE- 

GTE 

GTE. 

GTE 
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FILE: GIE1J1 


FOSieaS al PRIUCSTOS dnivehsiti iihe-shseing systbh 


C**»AND a SEPABATI PSOGSAH CONVESI3 II 10 A IiaE-VEClOS-EECOED FILE, G!1 
SQ=SQ01N1: (TIME,TP.SOG ,«QC , NTIfiE , 1 ) Gl 

ifP=3QUIST {TiSE,f PEOG,»PC, NfISE, 1) G!l 

«H = SQOIN':C{IIME,TPEOG,H1C, NTIME, 1) G1 

ACCX=SQUIN’i! IME ,TPeOG, TACCX, NTIME, 1) GI 

ACCI=SQUIN!I (liaE, IPSOG, lACCY ,KII1)5E, 1 ) 

ACCZ=SQUINT CriME^ TPROG^TACCZ, NTIHE, 1) Gl 

REiaES GI 

ENE G-I 


SUBfiOUTIEE EYNAS Gl 

COH?!ON/COa/C(2000) GT 

C O'! 

EQUIVALENCE (C (30 2) , WQ) , (C (3 1 1 ) ,T ET) , (C (3 1 5) , DIET) G3 

EQUIVALENCE (C (3 2 1 ) , VX) , ( C (3 23) , VZ) Q1 

EQUIVALENCE (C(334) , XE) , (C (336) ,ZE) , (C(337) ,XEB) , (C (339) ,2ED) G’l 

EQUIVALENCE (C (35 1 ) ,CSB 1 1 ) GI 

EQUIVALENCE (C(353) ,CEBl 3) , (C (357) ,CEB3 1) , (C (359) ,CEB33) GI 

EQUIVALENCE (C (310) ,PSI) , (C (312) ,?9I) , (C{5 14) , DPSI) , (C (316) ,DPHI) GI 
EQUIVALENCE (C (30 1 ) , «P) , (C (3 03) , 8E) GI 

EQUIVALENCE (C (322) ^ V Y) , (C (335) ,YI) , (C ( 338) , YEE) GI 

EQUIVALENCE (C (439) ,CS?) , (C(440) ,SNP) , (C(441) ,C2T) , (C (44 2) ,SNI’) G'i 
EQUIVALENCE (C (352) ^CEBI 2 ) , (C (354) ,CE32 1) , (C (355) , C1B22) GI 

EQUIVALENCE (C (356) ,CEB23) , (C (353) , CEB32) GI 

EQUIVALENCE (C (53 1 ) , ACCX) , (C (532) , ACCY) , (C (533) , ACCZ) GI 

EQUIVALENCE (C (271) ,USPEED) , (C(272) , VSPEED) , (C(273) ,WSPEED) GI 

EQUIVALENCE (C(274) ,DUSPED) , (C (275) ,EVSPEB) , (C (276) ,BWSP£D) GI 

EQUIVALENCE (C (37 0) , GRAV 1 ) GI 

C GI 

EPSI= (HR*CSF + HQ*SNP)/CSI GI 

DIEI=8Q*CSF-ftB*SNP GI 

DPHI=WP*DPSI*SNT GI 

CALI DBTCI (USPEED, VSPEED, HSPEED,CEB1 1,CEB12,CEE13 GI 

1,CEB21,CEB22,CEB23,CEB31 ,C£B32,CEE33,VX,VY,VZ) GI 

2EC=VX GI 

ZEC=VZ GI 

YEE=VY GI 

DUSPED=-WQ*WSPEED+WS*V3?EED-GSAV1*SNI +ACCX+GEAV1 GI 


G*****DV£PED=-8B*DSPEED+WP*WSPEED+GfiAV 1*CSI^SNF+ACCY*GEAV1- ASSUNE COOED, GI 


DVSP£D=0, 


D«£P£D=+HQ*USPEED-ij?*VSPEED+GEAV 1*CSI*CSF + ACCZ*GEAV1 


GI 


GI 


GI 

SSIDEN GI 

END GI 

SUEEOOIINE FINISH GI 

COMBON/COK/C (2 000) GI 

COMMON/REC/A3 (2000,20) GI 

C GI 

EQUIVALENCE (C (203) ,TIHS) , (C (217) ,LINS) , (C (21 8) , NPEINI) GI 

EQUIVALENCE (C (219) ,NPLOT) , (C(220) ,IPB) , (C (243) ,IF2) , (C(242) ,CSAD) GI 
EQUIVALENCE (C (212) ,TIMPLi:) GI 

C GI 

ENIHY FIN-2 GI 

SSIIE (IF2,516) GI 

516 FORHAT (1H ,*TIHE IS OVER*,///) GI 
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FILE: GTfiaJi FOETRAN A1 PRINCEIGN ONIVESSITT IIM E-SHSHIHG SYSTES 


C GTE 

IF (NPLOI.LI.2) GOTO 518 GTE 

DO 121 I=1,NPLCT GTE 

121 WBIIE (10,531) (A3(I,J) ,J=1, 16) GTS 

531 FORHAT (1H ,16(F9.2,X)) GTE 

ENDFILE 10 GTE 

WRITE (I?2 ,517) NPLOT GTF 

517 F0E?1AT(1H ,115) GIF 

518 CONTINUE GTE 

RETDfiN GTE 

END GTE 

SOBBOUi’INE eOTPT GTE 

COfinON/COM/C (2000) GTE 

COMMON/RUNGUT/DAN GIB 

COMaON/REC/A3 (2000,20) GTE 

DIMENSION BCai (7) ,VOR(7) GTE 

COMMON/ ALBiI/XB£TA,2BETA,XALPHA,¥ALPHA GTS 

COMMCN/STNAV/XST C7) ,YST(7) ,ZST (7) ,DI5EQ(7) ,ISTDM E,ISTVOH GTE 

1,R1(40) , NOYES (40) , SIGMA (4 0) GTE 

EQUIVALENCE (C(336),ZE) GTE 

EQUIVALENCE (C (203) ,TIMS) , (C (2 1 1 ) ,i*IMPE) , (C (2 12) ,f IMPLT) GTE 

EQUIVALENCE (C (213) ,TIMTTY) , (C (214) ,CTPS) , (C (215) ,EIPLT) GTS 

EQUIVALENCE (C (2 16 ) , DTTTY) , (C(217) ,LINE), (C(218) ,N?RINT) GTS 

EQUIVALENCE (C (2 1 9) , NPLOT ) , (C (24 2 ) , CB AD) , (C ( 24 3) , IE2) GTE 

EQUIVALENCE (C (302) ,WQ) , (C(321) ,VX) , (C(323) ,¥Z) , (C (334) ,XE) GTE 

EQUIVALENCE (C (343) , HM) , (C <3 1 1) ,TET) GTf 

EQUIVALENCE (C (3 1 0) , PSI) , (C ( 3 12) , PHI) GTE 

EQUIVALENCE (C(301) , WP) , (C (3 03 ) , WB) , (C (3 2 2 ) , V Y) , (C (335) ,YE) GTF 

EQUIVALENCE (C (53 1) ,ACCX) , (C (532) ,ACCY) , (C (533) , ACCZ) GTE 

EQUIVALENCE (C (27 1 ) , USPSEB) , (C(272) ,V3PEE£), (C (273) ,W3PEED) GfB 

GTS 
GTE 

WPJ=CSAD*WP + NOYES (1) *SIGHA (1) ♦El (1) GTB 

1QJ=CRAD*«C+N0YES (2) ♦SIGMA (2) ♦Rl(2) GTF 

1RJ=CEAD^WH + N0YES (3) ♦SIGMA (3) *S1 (3) GTF 

PSIJ=CRAD*PSI+NOYES(4) ♦3IGMA(4) ♦Rl(4) GTS 

TKETJ=CRAD^TET+NOY£S (5) ♦SIGMA (5) *H1 (5) GTE 

PHIJ=CRAD»PHI+NOY£S (6) ♦SIGMA (6) ♦R 1 (6) GTE 

VAIB=SQBI (USPEED**2 + VSPEED**2*VSVEE£**2) +NOYEE (7) ♦SIGMA (7) *£1 (7) GTE 
VRP=VSPEED+SR*XBETA-WP*Z3ETA GTR 

USPD=USPIED GTE 

BETA-AIAN2 (VRP,USPD) GTS 

BETAJ=CRAD*BETA+NOYES(8) ♦SIGMA (B) *E 1 (3) GTS 

WQ R= W SP BID- iiQ* XAL P H A ♦ W P* y A L P H A GT B- 

ALPHA=ATAN2 |WQE,USPD) GTS 

ALPHAJ=CEAE + ALPHA+NOYES (9) ♦SIGMA (9) ♦B1 (9) GTE 

HM=“Z£+NOYSS (10) ♦SIGMA (10) ♦Rl (10) GTR 

DO 301 I=1,ISTDME GIB 

3 01 ROME (I) = SQHT ( (XE-XST (I) ) ♦♦2+ (YE-YST (I) ) **2+ (ZE-ZST (I) ) **2) + GTP 

1NOYES{10+I) ♦SIGMA (10+1) *R1 (10+1) GTR- 

DO 302 I=1,ISTVOE GTB 

YVCR=YE-yST (I) GTE- 

XVOR=XE-XSI (I) GTB 

REQ=DIEEQ (I)/CEAD GTE- 

RONITX=COS (EEQ) GTE- 
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EONITY=SIN (EEQ) 

¥COS=aBS( (XVCH^'SaNirX*YVOB*BuNl!i:Y)/SQHT (X V0E*^2+ ?¥0E**2 ) ) 
BV011=ARC0S (VCOS) 

SVOa=CSAE*E¥CRl+KOYE3 (1 0 + I3'lEM E+I) +SIGM A { 1 0 + IS0.D ^H + 1) ♦ 

1E1 (10 + ISIDHS + I) 

302 VOE {I)=SATF ^RVOa,10.) 

VXY = SQRT (VX*VX4-¥Y=«'VY) 

VZN=-VZ 

GAay=A'2;AN2(yZN,VXY) 

GAfiVJ=CRAD*GAaV 
GAMfl = ATAN2(VY, VX) 

GA«HJ=CRAD*GAaH 

ACCX=ACCX+NOYES(10+IS1'DHE+ISTVOE + 1) *SIGaA ( 10+IS2DaE+ISTVOE+ 1 ) * 
1E1 (10 + IS'IDME+ISTVOR+ 1) 

ACCI=ACCY + iiCIES (1 O+ISl’OaE +I3'IVOR+2) * 3IGHA ( lO + IS-I BaS+ISTVOS + 2) * 
1E1 nO+ISIDHE+ISTVOE+2) 

ACCZ=ACCZ+NCIES (1 0+ISTDaE4lSIVOR4-3) »SIGMA ( lO+ISTDME+ISSVOR +3) * 
1R1 ( 10+ISIDaE+ISTVOE+3) 

C***NOM,IF TRIGGERED-CONTAaiNATIOS BY NOISE;IF NOT-BYPASSED. 

C 

C»**OaTPOT OPTIONS: 

€♦*♦ I.SECRf (TEBSINAL) PRINTOUT; 

€*♦* 2. ICNG PRINTOUT OF FIRST BUNCH, SECOND OB BOTH; 

€♦♦♦ 3. CREATION C? ISEC-INTEEV AL-FILE OF £ATA(SAME AS FllGHf FILE)- 

C*** -10 BE PRINTED, PLOTTED OB FURTHER PBOCESSIE, 

C 

IF(TIHE,GT. 0. , AND, DAN. LT. 1.) GOTO 879 
PRINT 508 

8BIT£(IF2,5 11) TIME, V AIR, GAMY J,GAMHJ , HH, XE , YE ,PSIJ,THETJ, 
1PHIJ,VGB 0) /BDME (1) ,ALPHAJ,BETAJ 
879 CONTINUE 


GT 
GT 
GT 
GT 
GT 
GT 
GT 
G T 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 
GT 


IF (IIME.LE.TiaPR) GOTO 241 GT 

IF {1INE,NE.60)GOTO 259 GT 

SRITS (IF2,508) GT 

508 FORaAT(1H1,» TIBE VAIB GA3VJ GAaEJ HH XE GT 

1YE PSIJ THETJ PHIJ VOR(1) EEME(1) ALPHAJ BETAJ’)GT 

NPRINT=NPSINT+1 GT 

LIN.E=1 GT 

259 CONTINUE GT 

«EIIE(IF2,5 11) TiaE,VAIR, GAaVJ,GAaHJ ,Ha,XE, YE, PSIJ, THETJ, PHIJ, GT 
IVOR (1) ,RDaE (1) ,ALPHAJ,BETAJ GT 

511 F0EMAI(1H ,5?7.1,2F10,1,4F7. 1,F11.1,2?7.1) GT 

NPBINT=NPBINT+1 GT 


fiaPl=TIMPR+CTPR GT 

LINI=LIN1+1 GT 

241 IF (TIMI.LE.TiaPLT,OE.NPLOT.GE.2000)GOTO 247 GT 

NPL0I-HPL0T4 1 GT 

A3 (NPLOT ,1 )=TiaE GT 

A3 (NPLOT,2) =»PJ GT 

A3 <NPLOT,3)=WQJ GT 

A3 <NPLOT,4) =«RJ GT 

A3 (NPLCT,5)=ACCX GT 

A3 (NPLOT,6) =ACCY GT 

A3 (NP10T,7) =ACCZ GT 

A3 <NPIGT,8) =HM GT 
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A3 (NPLOI,9) =VAIR GTE 

A3 (NPLOT,1 C)=PSIJ GTE 

A3 (NPLOT, 11) -THSTJ GTE 

A3 INPLOT, 12)=PHIJ GTE 

A3(NPLOT, 13)=VOR(1) GTE 

A3 (NPLOT, 14) =EDaE (1) GTS 

A3 (NPlor, 13) =ALPHAJ GTE 

A3 (NPLOT, 16) =BETAJ GTS 

TI MPLI='i'I HPIT+DT PLT GT E 

247 IF (TIME.LS.TIMTTY)GOTO 240 GTS 

IF (TIME.IT. (1.5*DTTTY) ) PSINI 510 GTE 

510 F0EHAT(1R1,» TIMS VAIS GAMVJ GAMHJ XE YS GTE 

1 aw*) GTE 

PRINT 513,liaE,VAIR,GAMyj,GAMHJ,XE,YE,HK GTE 

513 FORMAT (IH ,7F10.1) GTS 

TIMTTY=TIMT!1;I+DTTTI GTE 

240 CONTINUE GTE 

C GTE 

EE TURN GTE 

END GTE 

FUNCTION SATF (XI 1 ,XM11) GTE 

SATF=SIGN (AMIN1 (ABS(X1 1) , XMl 1) ,X1 1) GTE 

EETDEN GTE 

END GTB 

SUBROUTINE ECTAT GTE 

COMMCN/COM/C (2000) GTE 

EQUIVALENCE (C (3 1 1 ), TST) , (C (35 1 ), CEE 1 1) , (C (353) , CEE 13) GTB 

EQUIVALENCE (C (357) ,CEB3 1 ) , (C (359) ,CEB33) GTB 

EQUIVALENCE (C (44 1 ) ,CST) , (C (442) , SNf ) GTE 

EQUIVALENCE (C (3 1 0) , PS I) , (C (3 1 2) ,PHI) , (C ( 352) , CEE 12) GTE 

EQUIVALENCE (C(354) ,CEB21), (C(355) ,CES22) , (C (356) ,CEB23) GTE 

EQUIVALENCE (C(358) ,CEB32) , (C (443) ,CSP) , (C (444) , SNP) GTE 

EQUIVALENCE (C (439) ,CSF) , (C(440) ,SNF) GTE 

G GTE 

SNT=SIN (TET) GTS 

CST=COS(SEI) GTE 

SNP=SIN(PSI) GTH 

CSP=COS(PSI) GTE 

SNF=SIN(PHI) GTH 

CSE=COS(PHI) G2E 

C GTE 

CEEl 1-CST*CSP GTR 

CEB13=-3NT GTE' 

CE£31-+S8T4CSF*CSP+SNf*SNP GTR 

CEB33=CSI*CSF GTE' 

C1E12=CST*SNP GTR 

CEB21=SNF*SNT*CSP-CSF*SNP GTS 

CEE22=SNF*SNT*SNP+CSF*CSP GTB 

CEB23=SNF*CST GTE 

CE£32=CSF*SNT*SNP-SNF*CSP GTB^ 

RETURN GTR! 

END GTE'. 

SUfiRCUTINE DITOB (XI, YI , ZI ,A 1 1 , A 12 , A 1 3 , A2 1 , A22, A23, A31 , A32, A33 , GTR 
1XO,YC,ZO) GTE' 

X0=A1 1*XI+A13*ZI+A 12*11 GTE 


96 



t3 T ▼ Tl 

X xLiu i 


FOSiSaN 


A 1 


PSISCETOS UtilVSESIII IIHE-3HARISG SYSTEM 


ZO=A31*XI+a33»ZI+A32»YI 
YO = a21^XI^A22®YI'«-A23^ZI 
SETOBN 

ENTBI DBTCI (XI, YI , ZI , A 1 1 , 11 2 , A13 ,A2 1 , A22, A23 , A3 1 ,A32, A 33, 
1XO,YO,ZO) 

XO=A1 1*XI + A31*ZI+A21*YI 

ZO=A13*XI+133*ZI+A23*YI 

Y0=A12+X1 + A22*YI+A32*ZI 

HETUBN 

ENE 

SUBEOUTINE BKG 

DIMENSION IPL (100) ,IPD (100) 

COMMCN/CCM/C (2 00 0) 

COHMONySK/AEK (4) , BRK (4) ,CEK (4) ,QEK (1 00) 

C 

EQUIVALENCE (C(201),N) 

EQUIVALENCE (C (205) ,H) , (C (24 1) ,J) 

C 

DO 100 1=1, N 
IL=C (I ) 

ID=C( 100+1) 

X1=C (IB) 

X2= (X 1-BBK (J) *QRK (I) ) *AHK (J) 

C (IL)=C (IL) +X2 

100 QSK(I) =QEK (I) +3,*X2-CBK(J) *X1 
C 

SEIUEN 

END 

FUNCTION SQOINT{X,TaBX,rABY,NTAE,N) 

DIMENSION IIEX(NTAB) ,TaBY(NTAE) 

IF (NTAB.NE.I)GOTO 1 
SQUINT=TABY (NTAB) 

SETUHN 

1 IF (X-TABX (N) ) 2,3, 4 

2 N=S-1 

IF (N) 9,9,1 

3 SQUINI=TABY(N) 

FACTOfi=0. 

BE TURN 

4 IF ( (N + 1 ).GT. NTAB) GOTO 10 
IF (X-TAEX(M+1) ) 5,6,7 

6 N=N+1 
GOTO 3 

7 N=N+1 
GOTO 4 

5 FACTOB= (X-TABX (N) )/ (TAB X (N+ 1) -TABX (N)) 

SgOINT= (TABY (N + 1 ) -TABY ( N) ) ♦FACTOE+TABY (N) 

BETOBN 

9 PRINT 10CC,X,TABX(1) 

Y=£QBT (-1.) 

STOP 

1000 F0EMAT(1H , 1 0 (•$»), ‘ SQUINT UNDERFLOW - INPUT =',E15,6 ,» 
IN FIRST AEG. TABLE ENTRY ( *,B15. 8 ,* ) » ) 

10 PEINT 2CCC,X, TABX (NTAB) 

Y=£QET (-1, ) 


GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GI 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

GT 

LESS THAGT 
GT 
GT 
GT 
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FILE: GTEAJ1 FCE2BAN A1 FHINCEIGN UNIViHSITY IIME-SHAEIHG SYSTEM 

STOP GTR 

2000 F0BMAT(1H ,10 {•$’)/ 'SQUINT OVEEFLOW -INPUT =',E15.8 ,* GBRATES GTB 
1 THAN LAST AEG. TABLE ENTRY 6 ) UTR 

END GTE 
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OPTIMAL FLIGHT PATH RECONSTRUCTION (B.3) 


FILE; OPTFILT FOHTEJIH h 


PHINCETOH UNIVERSITY TISE-SH&SING 


C*OPTIJ!.aL FILTERING PEOGEAM C 

C* C 

InPLICIT REALMS (A-H,0-$) C 

REAL*4 PREDCT{6) C 

DIMENSION SOM(6) 1,6) , Hill (6,6) C 

CO«MON/DATO/S2LIAC,S2XYZH,TIMSOF,XOO (11) , S2WIND, S2WNDZ ,S2»MDY C 

1,S2V,S2ALF,S2BET,S2H,S2DME,S270E,S2BDME,S2ZR,PEHCNT,0MEGA, AGLOBE C 

4,0UTL1 ,OUTL2,S2QA,S2QB ... C 

2, EPS2,TLAa0,SHEV0,XST,YST,ZST,DIEBQ,KDHE (20) ,NDME1 (20) ,NDME2 (20) C 

3, KDME2(20) ,NX? , NRATS , NSTBP, IDGT, ISTDME, ISTVOH,SOF C 

LOGICAL GO,SOF C 

NAMELIST/INP/FILE C 

INTEGER FILE (2) C 

NAMELIST/OK/GO C 

NAHELIST/DAT/SOP,NXP,S2LIAC,S2XYZR, NRATE, TIMSOF, XOO, NSTEP, IDGT C 

1,S2V,S2ALF,S2BET,S2H,S2DME,S2VOH, P2RCNT,0HEGA,AGL0BB C 

•• 4,0UTL1 ,OUTL2,S2QA,S2QB C 

2, EPS2,ISTDME, ISTVOR,XST, YST, ZST,DIREQ, KDME, NDME1 , NDME2 ,S2WIND 0 

3, TLAMO,SMEHO,S2WNDZ,S2BDME,S2ZR,S2WNDY,KDHE2 . C 

DIMENSION P(11, 1 1) ,P0 (1 1, 11) ,HB (6,11) ,X0 (11) ,XOOT (11) C 

1, HES (6) ,RK (6,6) ,HBT(11,6) ,PHT(11,6) ,HPHT(6,6) ,HPfiTE(6,6) 0 

2, HPHTHI (6,6) ,tKAREA (110) ,CKALM (1 1,6) ,DELX (11 ,1> ,HES1 (6,1) . C 

3, XPLaS(11) ,AIDEN (1 1 , 1 1).,CH ( 1 1 , 1 1) ,aNBKH ( 1 1, 1 1) , PPLUS‘( 1 1 , 1 1 ) G 

4, CKALMT(6, 11) , UNHKHT ( 1 1 , 1 1) ,STABK1 (11, 11) ,STABK2 (11,11) C 

5,STABK3(6,11) ,STABK4(11,11) 0 

DIMENSION XST (7) ,YST(7) ,ZST(7) ,DIREQ(7) C 

1,XST7(7) ,YST7(7) , 2ST7 (7) ,DIREQ7.(7) C 

c*** . . c 

DEFINE FILE 12 (60, 21 12,L, KSTEPA) 0 

C*** 0 

1 CONTINUE . 0 

PRINT 1002 0 

1002 F0RHAT(1H ,*TYPE &INP FILE= SEND') 0 

READ(5,INP) 0 

INF1=FILE(1) 0 

INP2=FILE(2) 0 

PRINT 2000, FILE ... 0 

2000 FORMAT (2110) 0 

PRINT 1004 0 

1004 FORMAT (1H ,«TYPE &DAT DATA= SEND') 0 

READ (INF1, DAT) .... 0 

IF(SOF)GOTO 92 0 

PRINT 1003 0 

1003 FORMAT (1H ,*IP EVERYTHING O.K.-TYPE SOK G0=. TRUE. SEND* ) 0 

G0=.TRDE. ... _ . 0 

READ (5,0K) 0 

IF (GO) GOTO 10 0 

GOTO 1 . . 0 

10 CONTINUE 0 

C*** O 

-- DO 331 1=1,6 0 

331 SUM(I)=0.0D0 0 

C*** . 0 

PI=4.0D0*DATAN (1.0D0) 0 
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PILE; OPTFILT FORTRAN A 


PRINCETON nNI7ERSITT TIME-SHARING 


CRAD=180.0D0/PI OP 

. DO 17 1=1, NXP OP 

17 X0(I)=X00(I) OP 

KSTEP=0 OP 

KSTEP1=0 OP 

DO 101 1=1, NXP OP 

DO 102 J=1,NXP OP 

AIDBN (I,J) =0.0D0 OP 

102 P0(I, J)=O.ODO OP 

101 CONTINOE OP 

€*♦♦*♦* OP 

DO 109 1=1, NXP OP 

109 AIDEN (I,I) = 1.0D0 OP 

DO 104 1=1,6 OP 

DO 105 J=1,6 OP 

105 RK(I, J)=0.0D0 OP 

104 CONTINOE OP 

RK(1,1)=S27 OP 

RK(2,2)=S2ALF . OP 

RK (3,3)=S2BET OP 

RK{4,4>=S2H OP 

RK (5,5)=S2DHE OP 

RK(6,6)=S2Dt!E OP 

C*** ... .OP 

DO 461 1=1,7 OP 

. XST7 (I)=XST (I) . OP 

IST7 (I) =YST (I) OP 

ZST7 (I)=ZST (I) . OP 

461 DIEEQ7 (I)=DIREQ (I) . . .... OP 

ISTV07=ISTV0R OP 

ISTDH7=ISTDflE OP 

NRAT7=NRATE .:.... QP 

TI?!S7=TIMS0F OP 

NXP7=NXP OP 

S2LI7=S2LIAC .. OP 

C*** .'OP 

IDHE2=1 OP 

IDME=1 OP 

301 CONTINOE . OP 

KSTEP=KSTEP+1 - OP 

KSTEP1=KSTEP1+1 OP 

c* ..... . . OP 

IFLAG=1 OP 

C*** ..... OP 

IF (KDaE{IDME) -GT.KSTEP)GOTO 807 OP 

c* OP 

DO 817 I=1,NXP7 OP 

DO 817 J=1,NXP7 OP 

817 IF{I.NE.J)PO(I,J)=O.ODO OP 

IFLAG=5 ... OP 

C* ■ . OP 

XST7 (1) =XST {NDNE1 (IDNE) ) OP 

YST7 (1)=YST (NDMEI (IDHE) ) OP 

ZST7 (1) =ZST (NDME1 (IDNE) ) OP 

IDME=IDNE+1 OP 
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?ILE: OPTFILT FOETS&H A 


PEINCSTOH 0HI7EHSITY TIM S-SH AEI N( 


307 CONTINUE 

C* 

IP (KDHE2 {IDHE2) .GT.KSTEP) GOTO 827 . 

DO 828 I=1,KXP7 - 

DO 828 J=T,SXP7 
828 IF(I.NE.J)PO(I,J)=O.ODO 
IFLAG=5 . . 

XST7 (2) =XST {NDME2 (IDME2) ) 

YST7 (2) =YST {NDME2 {IDME2) ) 

ZST7 (2) =ZST (NDME2 (IDME2) ) 

IDME2=IDMB2+1 

827 CONTINUE 
C* 

C^CALLING THE PROPAGATION-BETWEEN- MEASUREMENTS SUBROUTINE 
C*** _ , . 

CALL PROP27{TIMS7,PERCNT, OMEGA, AGLOBE,EPS2,S2WNDT,TLAMO 
1 ,SMEW0,S2WIND,S2WNDZ,X0,P0,XST7,YST7,ZST7,DIREQ7.,S2ZR, S2BDME 
3,ODTL1,OOTL2,S2QA,S2QB - 

2rS2.Ll7,S2XYZE,X0UT,P,HB,RES,IPLAG,NRAT7,NXP7,ISTDM7,ISTV07,KSTEP) 

DO 201 1=1,6 

DO 202 J=1,NXP 
202 HBT{J,I)=HB(I,J) 

201 CONTINUE 

CALL 7HULFF {P,HBT,NXP,NXP,6,NXP,NXP,PHT,NXP,IER1) 

CALL 7H0LFF(HB,PHT,6,NXP,6,6,NXP,HPHT,6,IER2) : 

. DO 211 1=1,6 

DO 212 J=1,6 

212 HPHTR{I,J)=HPHT{I,J)+RK(I,J) 

211 CONTINUE ... 

C*** - . 

DO 341 1=1,6 

341 SUM{I)=SUM(I)+HPHTR{I,I) 

C*** 

CALL LINY IF {HPHTE, 6,6, HPHTRI,IDGT, WEAR EA,IER3) 

CALL VHULFF {PHT,HPHTRI,.NXP,6,6,-NXP,6,CK1LM,NXP,IBH4) 

DO 221 1=1,6 . ... 

221 RES1 (I,1) =EES (I) . . 

CALL VMULFF{CKALH,SES1,NXP,6,1,NXP,6,DELX,NXP,IER5) 

DO 231 1=1, NXP 

231 XPLOS{I)=XOOT(I)+DELX{I,1) . . 

CALL VMULFF(CKALB,HB,NXP,6,NXP,NXP,6,Cfl,NXP,IER6) 

DO 241 1=1, NXP . 

DO 242 J=1,NXP 

242 UNMKfl(I,J)=AIDEN(I,J)-Ce{I,J) . 

241 CONTINUE 

C-OLD CALL YMULFF(UNMKH,P,NXP,NXP,NXP,HXP,NXP,PPLDS,NXP,ISE7) 

DO 281 1=1, NXP 

DO 281 J=1,NXP > . 

281 UNHKHT(J,I)=UNMKH(I,J) 

,, DO 283 1=1, NXP 

DO 283 J= 1,6 

283 GKALMT(U,I)=CKALM(I,J) 

• GALL VMULF? (P,UNMKHT,NXP,NXP,NXP, NXP,NXP,STABK1.,.NXP,IER7) 

GALL VHULFF (ONMKH,STABK.1, NXP, NXP, NXP, NXP, NXP, STABK2, NX P,IER8) 

GALL VMULFF(RK,CKALMT,6,6,NXP,-6,6,STABK3,6,IER9) 


i 
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C 
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c 

c 

c 
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c 
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c 
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c 

c 

c 

c 
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0 
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FILE: OPTPILT FORTR&M A 


PRINCETON 0NI7ERSITY TIME-SHARING 


CALL VHULPP(CKALH,STABK3,NXP,6,NXP,NXP,6,STABK4,NXP,IER10) OP 

DO 282 1=1, NXP op 

DO 282 J=1,NXP OP 

282 PPLOS (I, J) =STABK2 (I, J) +STABK4 (I, J) OP 

c*** .. . . OP 

c*** OP 

IP(KSTEP1.LT.5) GOTO 253 OP 

KSTEP1=0 . OP 

DO 251 1=1, NXP OP 

DO 252 J=1,NXP OP 

IP(I.LE. J) GOTO 252 OP 

PPLUS (I, J)=.5D0^ (PPLUS (I,J) ♦PPLDS (J,I) ) OP 

PPLOS (J,I) =PPLUS (I, J). . OP 

252 CONTINOE OP 

251 CONTINUE OP 

253 CONTINOE OP 

C****** . . OP 

DO 741 1=1, NXP OP 

741 XO{I)=XPLOS(I) OP 

DO 742 1=1, NXP OP 

DO 742 J=1,HXP OP 

742 P0(I,J) =PPLUS(I,J) OP 

C*** OP 

KSTEPA=KSTEP OP 

C=*^=^* ... OP 

HRITE(12»KSTEPA) {XPLHS(I) ,I=1,NXP) OP 

1, {XODT(I) ,I=1,NXP) , ( (PPLOS (I, J) ,I=1,NXP) ,J=1,NXP) OP 

2, ( (P (I,J) ,I=1,NXP) , J-1,NXP) - . OP 

C*** ... :OP 

IF(KSTEP.EQ.NSTEP) GOTO 311 OP 

C*** OP 

GOTO 301 OP 

C*** ... OP 

311 CONTINUE . .. OP 

C*** OP 

IF(NSTEP,GT,60) GOTO 1 OP 

DO 342 1=1,6 . OP 

342 PREDCT(I)=DSQRT(SUfl(I)/59) OP 

PREDCT(2)=57.3*PREDCT<2) OP 

PREDCT (3) =57.3*PREDCT<3) OP 

PRINT 343, (PREDCT (I) ,1=1,6) OP 

343 FORMAT(« • ,? 12. 0,2F12. 1,3P12.0) OP 

C*** .... . OP 

GOTO 1 OP 

92 CONTINUE OP 

STOP .OP 

END . , OP 

BLOCK DATA OP 

IHPLICIT REALMS (A-H,0-$) OP 

COMHOH/DATO/S2LIAC,S2XTZR,TIHSOF,XOO (11) ,S2WIND,S2WNDZ,S2WNDT OP 

1, S27,S2ALF,S2BET,S2H,S2DaE,S2VOH,S2BDtlE,S2ZR,.PBEC.NT,Of!EGA, AGLOBE OP 

4,0UTL1,0UTL2,S2QA,S2QB .. OP 

2, EPS2,TLAM0,SMEW0,XST,IST,ZST,DIREQ,KDaE{20) ,NDHE1 (20) ,NDHE2(20) OP 

3, KDME2(20) ,NXP,NEATE,NSTEP,IDGT,ISTDaE,ISTVOH,SOF OP 

DIMENSION XST (7) , YST (7) ,ZST (7) ,DIREQ (7} OP 
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PILE: OPTFILT FOETHAM A 


PHIHCETOK 0KI7EHSITT TI?!S-SHAHING 


i.uvjxwax* bOr 

DATA SO?/ ®PALSE. HXP/1 1/^ S2LIAC/, 4D0/^ SRATE/2 0/,TIHSOP/1 . ODO/ 
1,X00/0.0D0,0.0D0,-1 16.0DQ, 125.aD0,0.0D0, 12= ODO, 5*0, ODO/ 
2,32V/6.25D0/,32ALF/.0O0075DO/,S2»IND/. 10D0/, 32 WNDZ/. 000001 DO/ 
3,32BET/.000076DO/,32H/25.0DO/,S2DMB/40000.0DO/,3270R/. 000004D0/ 
4,S3TEP/60/,IDGT/3/,S2XYZR/25.0D0/,32ZR/. 10D0/ - . 

6,ISTDME/2/,I3TVOH/2/,32BDtlE/.000025D0/,S2»NDY/-. 10D0/ 

7, XST/.703DO,.6985D0,5*.706DO/ 

8, YST/-1.297D0,-1.2985D0.,5*-1.294D0/ 

9,23T/7*0.0D0/ 

A, DIREQ/32.0D0,32.0D0,0.0D0,0.0D0,0.0D0,0.0D0,0.0D0/ 

B, KDME/1 , 19*2500/, NDHE1/1 , 2 ,3 , I , 4, 15*2/, NDHE2/2, 3 , 1 ,4 , 1 6*3/ 


C, OMEGA/.0000728DO/,AGLOBE/20940000.0DO/,EPS2/.0067DO/ C 

D, TLAH0/.700DO/,3aEM0/-1.30ODO/ C 

DATA PERCNT/. 000001 DO/ . C 

• 1,KD«E2/1, 19*2600/ C 

2,OOTL1/20000-ODO/,ODTL2/20000.0DO/,32QA/. 81D0/,S2QB/. 8 IDO/ C 

END G 
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PILE: OPTPPOPG FORTRAN A 


PRINCETON ONIVEHSITI TINE-SHARING 


C* 01 

C***STATE AND COVARIANCE BATHIX PROPAGATION BETWEEN NEASHREHENTS „ 05 

C* 01 

SOBROOTINE PR0P27 (TIHSOP, PERCl , OMEG 1 , AGIOB 1 , EPS 1 ^ S2W0Y 01 

1,TLAMOO,snEWOO,S2WO,S2MZ,XO,PO,XST,YST,ZST,DIREQ,S2ZR1 ,S2BDM 01 

3,OUTL1T,OOTL2T,S2QAT,S2QBT 05 

2,S2LIAC,S2XrZR,X0UT,P,HB,RES,IPLAG7,NRATE,NXP,ISTDaE,ISTV0e,KSTEP) Oi 
IMPLICIT REAL*8 {A-H,0-$) 01 

EQaiVALENCE (IC (202) , NRATE 1) , (C {3 1 1 ) , TIMSF) 01 

DIMENSION P0(11, 11) ,X0(11) ,P01 (11,11) ,P1 (11,1-1) ,HB1(8, 11) ,X01 (11) 01 
EQOIVALENCE (C (467) , S2LIA) , (C (373) rS2XYZ) 01 

EQUIVALENCE (IC (25 1) , NXPl ) , (C (55 1 ) , XO 1 ( 1) ) , (C (593) , P0 1 ( 1 , 1) ) 01 

EQUIVALENCE (C (993) , HB 1 (1 , 1) ) , (C (793) , P 1 (1 , 1 ) ) 01 

DIMENSION HB (6, 11) ,XOUT (11) ,P (1 1, 11) ,HBS (6) ,Z (11) ,ZCAL (8) 01 

EQOIVALENCE (C (469) , XE) , (C (47 1) , YE) , (C (473) , ZE) 01 

EQUIVALENCE (C (48 1 ) , OSPEED) , (C (48 3) , VSPEED) , (C (485) , WSPEED) Oi 

EQOIVALENCE (C (57 1 ) ,Z ( 1 ) ) -, (C ( 1 235) , ZCAL ( 1) ) Oi 

DIMENSION XST(7) , YST (7) ,ZST (7) ,-DIREQ(7) ,XST1 (7) ,YST1 (7) ,ZST1 (7) Oi 
1,DIBEQ1(7) 01 

EQOIVALENCE (C ( 1257) , XST1 ( 1) ), (C ( 1271) , YST1 (1 ) ) 01 

- EQUIVALENCE (C (1299) ,DIREQ1 (1)-) , (C (1285) ,ZST1 (1) ) OF 

-- EQUIVALENCE (IC (252) ,ISTDM1) , (IC (253) ,ISTV01) OS 

EQOIVALENCE (IC (259) ,KSTEP1) OI 

EQUIVALENCE (C (505) , OMEGA) , (C (507) , AGLOBE) , (C (509) ,EPS2) OE 

EQUIVALENCE (C (51 1) ,TLAMO) , (C (513) ,SMEWO) OI 

EQOIVALENCE (C (470) ,S2WNDZ) OE 

C**^' - . ... 0£ 

- EQUIVALENCE (C (482) , WX) „ (C (484) , WY) , (C (486) , WZ) OE 

EQUIVALENCE (C (468) ,S2ffIND) Oi 

COMMOH/COM/cboOO) . . OE 

COMflON/INCOM/IC(500) OE 

C*** .... ... OE 

EQUIVALENCE (C (3 1 2) , PEHCNT) , (C (38 1) , S2ZR) , (C (382) , S2BDME) OP 

1, (C (494) ,BDM£1) , (C (498) ,BDMB2) ,.(C (474) ,S2HNDY) OP 

- 2, (IC(261) ,IPLAG) , (C(502) ,00TL1) , (C(504) ,OUTL2) OP 

3, (C(505) ,S2QA) , (C (508) ,S2QB) OP 

- 0UTL1=0UTL1T OP 

0UTL2=0UTL2T - . OP 

S2QA=S2QAT OP 

S2QB=S2QBT . . OP 

IFLAG=IFLAG7 . . ; . OP 

S2WNDY=S2H0Y ' OP 

S2ZR=S2ZE1 OP 

S2BDME=S2BDB . . OP 

PEECNT=PERC1 OP 

C*** OP 

0MEGA=0MEG1 OP 

AGL0BE=AGL0B1 . . OP 

EPS2=EPS1 OP 

TLAM0=TLAM00 - OP 

SMEH0=SMEH00 . . OP 

KSTEP1=KSTEP OP 

NEATE1 = NRATE .. . OP 

TiaSF=TIMSOF OP 

. S2LIA=S2LIAC OP 
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PILE: OPTPEOPG FOETESN 


A 


PRINCETON aNIVERSITY TIf!E-SIiARIM! 


V t# ** ^ /^ *^ W r* n 

O ^ A X ^ ^ A X ^ n 

S2HIHD=S2H0 

S2WNDZ=S2HZ ' 

HIP1 = NZP 

DO 61 I=1,HXP1 * 

61 X01 (I) =X0 (I) 

DO 62 I=1,NXP1 ' 

DO 62 J=1,NXP1 

POl (I, J)=P0 (I,J) ' 

62 CONTINUE ' 

DO 64 1=1,7 I 

XSTl (I)=XST (I) I 

TSTl (I) =YST(I) I 

ZSTl (I)=ZST (I) ' 

64 DIREQl (I) =DIEEQ (I) ' 

ISTDMl=ISTDaE . i 

IST701=IST70B ' 

C • I 

CALL HIINIT ' 

CALL HYRDN . . i 

C*** - I 

DO 101 I=1,NXP1 < 

DO 102 J=1,NXP1 < 

IP(I.LT.J)GOTO 101 . ( 

102 PI (J,I)=P1 (I, J) . < 

101. CONTINUE < 

XOUT(1)=XB < 

XOUT (2) =YE - < 

XOUT(3)=ZE < 

XOUT (4)=USPEED , . < 

XOUT (5) =7SPEED < 

XOUT (6)=WSPEED < 

XOUT(7)=WX < 

XOUT(8)=HY < 

XOUT {9)=SZ < 

C* < 

ZOUT(10)=BDME1 . < 

XOUT {11).=BDHE2 « 

C^#*K-TH 7ECT0R 2 TRANSFERRED PROS INIT AND 7ECT0R ZCAL — FROM OUTPT S 


DO 1 11 1=1,6 . i 

111 RES (I)=Z (1+3) -ZCAL (I) . « 

C* -- ( 

EES (5)=RES{5)-BDaEl I 

EES (6>=RES(6)-BDflE2- .. { 

C*** . . ■ .... < 

DO 52 I=1,HXP1 . . « 

DO 52 J=1,NXP1 ( 

52 P(I,J)=P1 (I,J) < 

DO 63 1=1,6 ( 

DO 63 J=1,NXP1 ( 

63 HB (I,J)=HB1 (I,J) ( 

C ... ... . i 

RETURN ( 

END C 

SUBROUTINE NXINIT . C 
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o o 


FILEj optpropg pohtrah a 


PBIHCETOH UHI7ESSITY TIME-SHARING 


IMPLICIT REAL*8 (A-H,0-$) 

CALL INIT 
CALL DYHAMI 
RETURN 
END 

SUBROUTINE MYRUN 
IMPLICIT HEAL*8 (A-H,0-^) 

COMMON/COM/C (2000) 

COMMON/INCOM/IC (500) 

EQUIVALENCE (C (305) ,TI«B) , (IC (207) , NSTEP) 
EQUIVALENCE (IC (241)^ Jl)-r (C (31 1) ,-TISSF) 

C 

• 242 CONTINUE 

- IP (TIME-LT.TIMSF) GOTO 82 
CALL OUTPT 
GOTO 100 
C 

82 CONTINUE 

C 

C*^*R.K. LOOP . 

C 

DO 246 J=1,4 
J1=J 

CALL DYNAH . . 

c . : .... 

. CALL RKG 
246 CONTINUE 


OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

QP 

OP 

OP 

OP 

OP 


QP 

OP 

OP 


OP 

NSTEP=NSTEP+1 . OP 

GOTO 242 . . OP 

100 CONTINUE OP 

RETURN - OP 

END OP 

SUBROUTINE INIT OP 

IMPLICIT REAL^a (A-H,0^$) OP 

REAL*4 Z1 (11) ,XA1 (6) QP 

DIMENSION IPL(IOO) ,IPD(100) QP 

COMHON/COM/C (2000) - OP 

COMMON/INCOM/IC (500) OP 

COMMON/RK/ARK(4) ,BRK(4) ,CHK{4) ,QRK(100) OP 

C • - OP 

EQUIVALENCE (IC (25 1) , HIP 1) , (C (467) , S2LIA) , (C (3 73) , S2XYZ) OP 

COMMON/FQ/FB(11,11) ,QB(11,11) - - - OP 

EQUIVALENCE (C (993)- ,BBl (1 , 1) ) , (C (571) , Z (1) ) OP 

DIMENSION HBI (8,11) ,XA (6) ,Z (11) OP 

EpOIVALENCE (IC (259) ,KSTEP1) s OP 

C OP 

EQUIVALENCE (IC(201),N) OP 

EQUIVALENCE (IC (202) ,NRATEl) , (C (305) ,TIME) , (C (307) , TIMED) OP 

EQUIVALENCE (C (3 03) , DT) , (IC (207) , NSTEP) OP 

- -EQUIVALENCE (C (309 ) ,CR AD) , (C (30 1)- , GRAY 1 ) OP 

EQUIVALENCE (C (493) , ACCX) , (C (495) , ACCY) , (C (497) , ACCZ) OP 

EQUIVALENCE (C (3 13) , »P) , (C (3 15) , WQ) (C (3 1 7) , HE) OP 

EQUIVALENCE (C (329) , PHI) , (C (327) ,TET) , (C (325) ,PSI) OP 
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PILE; OPTPROPG FOETRAK A 


PRIKCETOH tJKIVERSITY 


TISE-SHAHINC 


C 

C 


r'vni'Jx 

V-'-' 't ■ *i » i>- X-'-'-'/ ’‘-I $ x'- \ — r— — — -— / 


(C (359) ,CSB22) , (C (361) ,CEB23) 
(C(365) ,CEB32) , (C(367) ,CEB33) 


T3I rt X Tf » T *C» M ^ 1? 
i:*^U X W AX£iilV.rU 

EQUIVALENCE (C (357) ^CEB21) ^ 

EQUIVALENCE (C (363) ,CEB3 1) , 

SQuxvAL^nuS \ \ U / f I •) 9 \ * f 9 

EQUIVALENCE (C (468) ,S2WIND) , (C (470) ,S2HNDZ) 
(C(331) ,S2ZE) , (C(382) ,S2BDME) , (C (474) ,S2WNDY) 

2, (IC (261) ,IFLAG) , (C (502) ,0UTL1) , (C (504) ,OUTL2) 

3, (C (506) ,S2QA) , (C (508) ,S2QB) 


GRAV1=32. 17D0 


ARK(1)=.5D0 

ARK (2) = 1. ODO-1- ODO/DSQRT (2- ODO) 
- ARK{3) =1.000+1. 0D0/DSQRT{2. ODO) 
ARK(4) =1. 0DO/6.ODO 
BRK(1)=2,0D0 
BHK(2)=1.0D0 
-• BHK(3) = 1-ODO 
BEK(4) =2.000 
CHK(1)=ARK(1) 

CHK(2)=ARK(2) 

CEK(3) =ARK(3) 

CHK(4)=ARK(1) 

DO 229 1=1,100 
229 QHK(I)=0.000 

C r. 

PI=4.0DO*DATAN(1.0DO) 
CRAD=180.0D0/PI - - 

C 

IPL(1)=305 

IPD(1)=307 

N=1 f 

TIHE=0.0D0 , 

TI»BD=1.0D0 
- HSTEP=0 
HRAT=NEATE1 
DT= 1 . ODO/DFLOAT ( NEAT) 

C*** 

C 


DO 306 I=1,NXP1 
DO 307 J=1,NXP1 

307 FB(I,J)=O.ODO 
306 CONTINUE 

DO 308 1=1,8 
DO 309 J=1,NXP1 
309 HB1 (I,J)=0.0D0 

308 CONTINUE 

HB1 (4,3)=-1-QD0 

HB1 (5, 10)=1.0DO 
HB1 (6,11)=1.0D0 
DO 311 I=1,NXP1 
DO 312 J=1,NXP1 
312 QB (I, J) =0. ODO 
311 CONTINUE 


( 

f 

( 

( 

( 

( 

( 

{ 


C 

( 

c 

c 

{ 

s 

( 

{ 

( 

i 

c 

c 

c 

c 

c 

( 

c 

c 

i 


i 

i 

( 

c 

{ 

i 


{ 

c 

{ 

c 

( 

( 

( 

( 

c 

( 

c 
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FILE: OPTPEOPG FORTRAN A PRINCETON ONIVERSITY TIME-SHARING 

QB (4,4) =S2LIA OP 

QB(5,5)=S2QA OP 

QB(6,6)=S2QB OP 

DO 314 1=1,2 OP 

314 QB (1,1) =S2XYZ OP 

QB(3,3)=S2ZH . . OP 

QB (7,7)=S2WIND - OP 

QB (8,8) =S2WNDY - OP 

QB(9,9)=S2WNDZ . OP 

C* OP 

• QB(10, 10)=S2BDME . OP 

- QB(11,11)=S2BDHE OP 

c*** OP 

C***READ IN SaOOTHED VECTOR X OF MODEL A AND VECTOR Z AT K-TH TIME OP 

C#*^poiNT,Z COSTITUTES OF INPUT (ACCEL MEASDREMENTS) AND HBASOREHENT OP 

C***aATRICES, FIRST NEEDED IN DYNAM AND SECOND— IN MAIN. OP 

C ... ... . OP 

IF(KSTEP1.EQ,2)GOTO 319 OP 

READ (10) (XA1 (I) ,1=1,6) OP 

319 CONTINUE ,. . OP 

READ(9) (Z1 (I) ,1=1,11) - OP 

Z (5) =Z1 (5)/CRAD OP 

Z(6)=Z1 (6)/CRAD OP 

Z (10) =Z1 (10)/CRAD OP 

Z(11) =Z1 (11)/CRAD OP 

Z(4)=Z1 (4) OP 

Z(7)=Z1{7) . OP 

Z(8)=Z1(8) - OP 

- Z(9)=Z1(9) OP 

c*** . ■ .... OP 

WP=XA1 (1) . - OP 

WQ=XA1(2) OP 

WR=XA1(3) OP 

PHI=XA1(4) . _ OP 

TET=XA1(-5) -. . OP 

PSI=XA1 (6) OP 

CALL ROTAT . ^ OP 

ACCX=Z1(1) OP 

ACCY=Z1 (2) . . OP 

ACCZ=Z1(3) OP 

C* OP 

C* IFLAG=5 FOR FIRST STEP OP 

IF(IFLAG-NB.5)GOTO 837 , OP 

OORT=Z(8) OP 

ONR1=Z(8) OP 

OOR2=Z(9) OP 

ONH2=Z(9) OP 

GOTO 838 OP 

837 CONTINUE . . OP 

IF(DABS(Z (8)-ONR1) .LT.OOTL1)GOTO 839. OP 

.... Z(8) =0NR1+ (ONR1-OOR1) - - OP 

839 CONTINUE OP 

00R1=0NR1 OP 

ONR1=Z(8) OP 

IF(DABS (Z (9)-0NE2) .LT.0UTL2) GOTO 840 OP 
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PILE: OPTPEOPG FOETEAN k 


PBINCETOS {JNIVSHSITY TlfiE-SHABINi 


— wnri^*** 

840 CONTINUE 
OOE2=ONR2 
ONR2=Z{9) 

838 CONTINUE 

C* 

SETUEN 

END 

SUBSOUTIHE DYNAMI 
IMPLICIT HEAL*8 (A-H,Or-$) 

DIMENSION IPL(IOO) ,IPD{100) 

- COMMON/COM/C (2000) 

- COMHON/IHCOM/IC (500) ... 

C*** . . 

DIMENSION XOl (11) , POT (11, 11) , PI (11, 11) 

EQUIVALENCE (C (337) ,CSF)., (C (339) ,SNP) , (C (341) ,CST) , (C(343) ,SNT) 

1, (C(505) , OMEGA) , (C (507) , AGLOBE) , (C(509) ,EPS2) 

2r (C(511) ,TLAM0) 

3, (C(351) ,CEB11) , (C(352) ,CEB12) , (C (353) ,CEB13) 

4, (C{354) ,CEB21) , (C(355) ,CEB22) , (C{356) ,CEB23) 

5, (C (357) ,CBB31) , (C (358) ,CEB32) , (C (359) ,CEB33) - 

6, (C(494) ,BDME1), (C (498) ,SDME2) , (C (31 2) , PEECNT) , (C(311) ,TIHSP) 

7, (C(313) ,iP) , (C(315) ,»Q)., (C(317) ,»E) 

COMMON/PQ/PB(11,n) ,QB(11,11) 

DIMENSION B60 (11,11) ,FKDT (11,11) ,SUMB(11,t1) ,SUME1 (11,11) 

1,THAT (11, 11) ,TMATT (11 , 1 1) ,PTMATT (11, 1 1) ,TMPTHT (11,11) 
EQUIVALENCE (IC (251)-,NXPi) , (C(551),X01 (1) ) , (C (593) ,P01 (1,1)) 
EQUIVALENCE (C (793) ,P1 (1 ,1) ) 

■ 

EQUIVALENCE (IC(201),H) 

EQUIVALENCE (C(303),DT) 

EQUIVALENCE (C (327) ,TET) , (C (325) , PSI) , (C (329) , PHI) 

EQUIVALENCE (C (469) , XE) , (C (471) ,^T£) (C (473) , ZE) . 

EQUIVALENCE (C (48 1) , USPEED) , (C (485) , BSPEED) , (C (483) , VSPEED) 
EQUIVALENCE (IC (1 ) ,IPL ( 1) ) , (IC (101) , IPD ( 1) ) 

EQUIVALENCE (C(482) ,HX) , (C (484) , 81 ) , (C (486), HZ) - 

c .... ... .. .. : 

N=H+1 

IPL (N)=469 

IPD (N) =475 . 

N=N+1 

IPL (N) =471 . 

IPD(N)=477 

N=N+1 

IPL (N) =473 . - 

IPD (N) =479 
N=N+1 

IPL (N) =481 

IPD(N)=487 . 

N=N+1 . . 

IPL (N) =483 . 

IPD (N) =489 
N=N+1 

-IPL (N) =485 
IPD (N) =491 


( 
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PILE: OPTPHOPG POHTRAN 


A 


PRINCETON ONIVERSITY TIME-SHARING 


C*** 

N=N*1 

IPL (N) =482 
IPD(N)=488 
H=N+1 

IPL (H) =484 
IPD(H)=490 
M=N+1 

IPL (N) =486 
IPD (N)=492 
C* 

N=N*1 

IPL (M) =494 
IPD (N) =496 
N=N+1 

IPL(N)=498 
IPD(N) = 500 
C 

XE=X01(1) 

¥E=X01(2) 

ZE=X01(3) 

C 

aSPEED=X01 (4) 
7SPEED=X01 (5) 
¥SPEED=X0 1 (6) 

C*** . 

WX=X01 (7) 

WX=X01 (8) 

WZ=X01(9) 

c* . 

BDHE1=X01 (10) 
BDfIE2=X01 (11) 

C*** 

DO 201 I=1,NXP1 

201 PI (I, 1)=P01 (1,1) 

DO 202 I=2,NXP1 

202 PI (I,2)=P01 (1,2) 

DO 203 I=3,HXP1 

203 PI (I,3)=P01 (1,3) 

DO 204 I=4,HXP1 

204 PI (I,4)=P01 (1,4) 

DO 205 I=5,NXP1 

205 PI (I,5)=P01 (1,5) 

DO 206 X=6,NXP1 

206 Pi (I,6)=P01 (1,6) 

• DO 207 I=7,SXP1 

207 P1(I,7)=P01(I,7) 

DO 208 I=8,NXP1 

208 PI (I,8) = P01 (1,8) 

DO 209 I=9,HXP1 

209 P1(I,9)=P01 (1,9) 

DO 210 1=10, NXPl 

210 PI (I, 10) =P01 (1,10) 
P1(11, 11)=P01 (11,11) 

C*** 


OP 

OP' 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 


OP 

OP 

OP 

OP 

OP' 


OP' 


0P' 

OP' 

OP' 

OP 


OP- 

OP' 

OP- 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP' 

OP*: 

OP'. 

OP'. 

OPI 
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FILE; OPTPSOPG POBTRAH A 


PSINCExON aNIVEESITI 


TISE-SEARIHC 


r\r\ 4 A ^ 
U\J I Vf I 


T— < IT V « ^ 

X— ' i , £1 A. r I 


DO 102 J=1,NXP1 
IF (I, LT, J) GOTO 
102 Pi (J r-I) =P 1 (I »«J) 
101 CONTINUE 


101 


C*** 

TLAM=TLAMO*XE/AGLOBE 
COST=DCOS (TLAH) 

SIHT=DSIN (TLAH) . . 

TANT=SINT/COST 

SIN2T=2*SIHT*C0ST 

COS2T=COST*COST-SINT*SINT 

Cl 1 1 1= 1. ODO-ZE/AGLOBE«. 5D0*EPS2*C0S2T 

C112=1/C1111 

C • . . . 

c , 

C14 1=C 1 12* (ZE/AGLOBE+. 5*EPS2*COS2T) 

Cl 1 1= (CEB 1 1*USPEED+CEB2 1*7SPEED+CEB31*WSPEED+WX) /AGLOBE 

C21 1= {CEBl2*aSPEED+CEB22*VSPEED+CEB32*WSPEED+HY) /AGLOBE 

C24 1=-C 1 1 2* YE*TANT/AGLOBS 

C341=C112*EPS2*SIN2T 

C56=OMEGA* (CEB1 1*C0ST-CEB13*SIHT> 

C64=OflEGA* {CEB21*COST-CEB23*SIHT> 
C45=OMEGA*{CEB31*COST-CEB33*SINT) 

C*** - - 

- C413=OHEGA* {CEB11*SINT+CEB13*CbST) 

C4 12=0flEG A* (CBB21 *SINT+CEB23*COST) 

C411=OHEGA* (CEB31*SINT+CEB33*COST) . 

CENT 1=-OHBGA**2*AGLOBE*C 1.11 1*.-5*SIN2T 
C'ENT2=-OMEGA**2*AGLOBE*C11 11*COST**2 - 
C47=2*(+HR*CEB21-WQ*CEB31)-+0MEGA*CEB12*SINT 

C48=2*(+»H*CEB22-WQ*CEB32) -C413 

■ C49=2* {+WH*CBB23-WQ*CEB33).-0aEGA*CEB12*C0ST 

C57=2* (-iR*CEBl1+WP*CEB31) +0aEGA*CEB22*SINT 
C58=2*(-:RH*CEB12+WP*CEB32)-C412 - - 

C59=2* (^¥R*CEB 1 3+MP*CEB33) -OaBGA*CEB22*COST 
C67=2* (♦WQ*CEB1 1-WP*CEB21) >OaEGA*CEB32*SINT 
C68=2* (+»Q*CEB1 2-WP*CEB22) -C41 t 
C69=2* (+fQ*CEB13-»P*CEB23) -OaEGA*CEB32*COST 
C • ■ 


G*** 

C1122=C112*C112 
C2112=C211*C1122 
C13=C111*C1122 
C 1 1=-EPS2*SIH2T*C 1 3 

C3 1=C1 1 1*C1 12*EPS2* (2*C0S2T-C1 12*EPS2*SIN2T*SIN2T) 
C33=C13*EPS2*SIH2T - - 

C21=-EPS2*SIH2T*C21 12+C13* (-Cini+.5D0*EPS2*SIN2T*SIN2T) *YE/ 
1 AGLOBE/COST/COST 
. C22=-C111*C112*TANT 

C23=C21 12-C13*TANT*YE/AGL0BE 
C14=C141*CEB1 1 

- C15=C141*CEB21 • 

- C16=C141*CEB31 
C24-C241*CEB11+C141*CEB12 


C 

C 

c 

( 

( 

c 

c 

c 

c 

( 

c 

c 

( 

c 

c 

c 

c 

( 

i 
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PILE; OPTPROPG FORTPAN A PRINCETON UNITEHSITT TI3E- SHARING 

C25=C241*CEB21*C14 1+CE822 OP 

C26=C241*CEB31 + C141*CEB32 . OP' 

C34=C341*CEB11 OP 

C35=C341*CEB21 OP' 

C36=C341*CEB31 OP 

C17=C141 OP 

C27=C241 OP 

C28=C141 , OP 

C37=C341 OP 

C411=0HEGA* (CEB31*SINT+CEB33*COST) OP 

C412=OflEGA* (CEB21*SINT+CEB23*COST) OP 

C413=OHEGA* (CEB11*SINT+CEBl3*CaST) OP 

G433=OHEGA*COST OP 

- C43=C433*C413 OP 

C53=C433*C412 OP 

C63=C433*C411 . OP' 

COST1=COST*OHEGA/AGLOBE - OP 

SINT1=SIBT*OHEGA/AGLOBE OP' 

C41 1 1= (Cl 1 1 1»COS2T + . 5D0*EPS2*SIN2T*SIN2T) ♦0HEGA*03EGA OP 

C41 12= (Cl 111*SIM2T- EPS2*SIN2T*COST*CaST) ♦OMEGA=*'OMEGA OP 

- C41= (ffSPEED*C412-7SPEED*C411)/AGLOBE OP' 

1-CEBn*C4111+CEBl3*C4112+COSTl-#(WX*CEB12“WI^CEBl1)+SINTl*( OP' 

2 HT*CEB13*WZ*CEB12) _ . OP' 

C51= (0SPEED*C411^WSPEED*C413)/XGL0BE OB 

1-CEB21*C4tn+CEB23*C4112+C0ST1*(HX*CEB22-HI*CBB21) <-SINT1*{ Of 

2 HY*CEB23+WZ*CEB22) .. - OP 

C61= (7SPEED*C413^0SPEED*C412)/AGL0BE OP' 

1-CEB31*C4l1UCEB33*C4112+COSTl^(»X*CEB32-»y*CEB31) +SINT1*{ OP 

2 ai*CEB33+WZ*CEB32) - OP 

C65=-C56 OP- 

C46=-C64 OP' 

C54=-C45 OP! 

PB(1,1)=C11 OP' 

FB(2,1)=C21 . OP' 

FB(3^1>=C31 OP' 

PB(4,1)=C41 OP! 

FB(5,1)=C51 - . OP! 

FB(6,1)=C61 OP' 

Ffi(2,2)=C22 OP! 

FB(1,3)=C13 OP-^ 

PB(2,3)=C23 OP' 

FB(3,3)=C33 OP! 

FB(4,3)=C43 OP' 

FB(5,3)=C53 OP! 

FB(6,3)-C63 OP' 

- FB(1,4)=CEB11+C14 OP! 

FB(2,4)=CEB12+C24 - , OP! 

PB (3,4) =+CEB13+C34 OP! 

FB (1,5)=CEB21+C15 . OP! 

FB(2,5)=CEB22+C25 OP! 

- PB(3,5)=+CEB23+C35 OP! 

FB(1,6) =CEB31+C16 OP! 

FB(2,6)=CEB32+C26 OP! 

FB(3,6)=+CEB33+C36 OP! 

FB (5,4)=-WR+C54 OP! 
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PILE; OPTPHOPG FORT8AN 


A 


PRINCETON UNI7EESITT 


TI?!E“SHARIN( 


vn /A tt\ sHr»4.r'Aii C 

^ \ / Wi ^ • W V “«■ ' 

FB (4,5) =WRi-C45 < 

FB(6,5)=-HP+C65 i 

FB{4,6)=-WQ4-C45 C 

FB(5,6)=WP+C56 ( 

FB(1,7)=1.0D0+C17 ( 

FB{2,8) -1.0D0+C141 ( 

FB(3,9)=1.0DO i ( 

FB{2,7)=C27 ( 

FB(3,7)=C37 , . { 

FB(4,7)=C47 < 

FB(4,8)=C48 ( 

FB(4,9)=C49 ( 

FB(5,7)=C57 ( 

FB(5,8)=C58 C 

FB(5,9)=C59 i 

FB(6,7)=C67 C 

FB(6,8)=C68 ( 

FB(6,9)=C69 ( 

C**** . { 

\-C { 

CALL CSTH (FB,PEECHT,TISSF, THAT, B60,FKDT, SOME, S0ME1 ,NXP1,NTEBMS) C 

DO 600 I=1,HXP1 C 

DO 600 J=1,HXP1 C 

600 THATT(J,I)=THAT (I,J) . C 

DO 610 I=t,HXPl . - . , ( 

DO 610 Js1,HXP1 ! C 

610 THPTHT (I, J)=P1 (I,J)+QB (I,J) C 

CALL 7HDLFF{THPTHT,TaATT ,NXP1,NXP1,NXP1,NXP1,NXP1 ,PTMATT, NXPI ,11) C 
CALL VH0LFP(TMAT ,PTHATT,HXP1,HXP1, NXPI ,»XP1, NXPI, P 1 . ,NXPl,I2)C 

c - . c 

RETOSN ... C 

. END • C 

SOBfiOOTINE DINAH C 

IflPLICIT HEAL*8 (A-H,0-$) C 

COHMON/COH/C.(2000) ■ - . , C 

COHMOH/INCOH/IC (500) - C 

c*** ... c 

EQUIVALENCE (IC (251) ,NXPl) C 

COflMON/FQ/FB(11,11) ,QB{H,11) C 

EQUIVALENCE (C (494) ,BDME1) , (C (496) ,DBDHB1) C 

1, (C (498) ,BDHE2) , (C (500) ,DBDHE2) C 

EQUIVALENCE (C (793) ,P1 (1 , 1) ) £ 

EQUIVALENCB (C(401) ,DP11) , (C(402) ,DP21) , (C (403) , DP31) C 

EQUIVALENCE (C (404) ,DP4^1) , (C (405) ,^BP51) , (C (406) , DP61 ) £ 

. -EQUIVALENCE (C (407) ,DP71) , (C (408)-,^DP8 1) , (C (409) , DP9 1 ) C 

EQUIVAIENCB (C (410) ,DP22) , (C (41 1) ,DP32) , (C (412) ,DP42) £ 

EQUIVALENCE (C (413) ,DPS2) , (C (414) ,DP62) , (C(415) ,DP72) C 

EQUIVALENCE (C (4 1 6) , DP82) , (C (41 7) ,DP92) C 

EQUIVALENCE (C (4 18) , DP33) , (C (41 9| ,DP43) , (C (420) , DP53) C 

EQUIVALENCE (C (42 1 ) , DP63) , (C (422) , DP73) , (C (423) , DP83) C 

EQUIVALENCE (C (424) ,DP93) C 

EQUIVALENCE (C (425) ,DP44) , (C (426) ,DP54) , (C (427) ,DP64) C 

EQUIVALENCE (C (428) ,DP74.) , (C (429) ,DP84) , (C (430) , DP94) C 

EQUIVALENCE (C (431) ,DP55) , (C (432) ,DP65) , (C (433) ,DP75) C 
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FILE: OPTPROPG FORTBAN A PRINCETOH 0NI7ERSITY TIHE-SHARIKG ; 

EQUIVALENCE {C (434) , DP85) , (C (435) ,DP95) , (C (436) » DP66) OP 

EQUIVALENCE (C (437) ,DP76) , (C (438) ,DP86) , (C (439) » DP96) OP' 

EQUIVALENCE (C (440) , DP77). , (C (44 1 ) , DP87) ^ (C (442) , DP97) OP' 

EQUIVALENCE (C (443) ,DP88) , (C (444) ,DP98) ^ (C (445) , DP99) OP 

EQUIVALENCE (C (3 19) ,HPD) , (C (321 ) , WQD) , (C (323) , HBD) OP 

DIHENSIOH DP«(11,11) ,FP(11.,11) ,P1 (11,11) OP 

C*** OP 

EQUIVALENCE (C (482) ,WX) , (C (484) ,HY) , (C (486) ,SZ) OP 

EQUIVALENCE (C (488) ,DHX) , (C (490) ,-DWY) , (C (492) , DWZ) OP 

C ■ OP 

EQUIVALENCE (C (3 15) , WQ) , (C ( 327) , TET) , (C (333) , DTET) OP 

EQUIVALENCE (C (499) , VX) , (C (503) ,VZ) OP 

EQUIVALENCE (C(469) ,XE) , (C(473).,ZE) , (C (475) ,XED) , (C(479) ,ZED) OP 

EQUIVALENCE (C (351) ,CEB1 1) OP 

EQUIVALENCE (C (355) ,CEB13) , (C (363) ,CEB31) , (C (367) , CEB33) OP 

EQUIVALENCE (C (325) , PSI) , (C (329) , PHI) , (C (331) ,DPSI) , (C (335) , DPHI) OP 

EQUIVALENCE (C (313) ,WP) , (C (317) ,1H) ©P 

EQUIVALENCE (C (501) ,VY) , (C (471) ,TE) , (C (477) , YED) OP 

EQUIVALENCE (C (337) ,CSF) , (C (339) ,SNF) , (C (34 1 ) ,CST) , (C ( 343) , SNT) OP 

EQUIVALENCE (C (353) ,CEB12) , (C (357) , CEB21) , (C (359) ,CEB22) OP 

. EQUIVALENCE (C(361) ,CEB23) , (C (365) ,CEB32) OP 

- EQUIVALENCE (C (493) ,ACCX) , (C (495) , ACCY) , (C (497) , ACCZ) OP 

EQUIVALENCE (C (481) ,USPBED) , (C{483) , VSPEED) , (C (485) , WSPEED) OP 

EQUIVALENCE (C (487) , DUSPBD) , (C (489) ,DVSPED) , (C (49 1) , DSSPED) OP 

EQUIVALENCE (C (301) ,GRAV1) - OP 

EQUIVALENCE (C (511), TLA80) OP 

EQUIVALENCE (C (505) ,OHEGA) , (C (507) , AGLOBE) , (C (509) ,EPS2) OP 

C*** ... QP 

-C ■ OB 

- * CALL DBT0I(USPEED,VSPEED,WSPEED,CEB11,CEB12,CEB13 OF 

1,CEB21,CEB22,CEB23,CEB31,CEB32,CEB33r7X,-VY,VZ) OP 

c*** .... ... OP 

- - DO 101 I=1,NXP1 . OP 

DO 102 J=1,NXP1 OP 

, IF (I. LI. J) GOTO 101 OP 

102 P1(J,I)=P1 (I,J) OP 

101 CONTINUE . .. OP 

TLAH=TLAHO+XE/AGLOBE - OP 

COST=DCOS(TLAH) OP 

SINT=DSIN (TLAH) OP 

TANT=SI NT/COST OP 

SIN2T=2*^SINT»COST , . OP 

-COS2T=COST*COST-SINT*SI5T OP 

C1111=1.0DO-ZE/AGLOBE--5DO*EPS2*COS2T OP 

C112=1/C1111 - OP 

OP 

... OP 

C141=C112* (ZE/AGL0BE-«-.5*EPS2*C0S2T) OP 

Cl 11=(CEB11*USPEED+CEB21*VSPEBD+CEB31*NSPEED+HX) /AGLOBE OP 

C21 1= (CEB12*0SPEED+CEB22*VSPEED+CEB32*HSPEED+»Y) /AGLOBE OP 

C241=-C112*YE*TANT/AGL0BB OP 

C341=C112*EPS2*SIN2T OP 

C56=0»EGA* (CEB11*C0ST^CEB13*SINT) OP 

C64=0SEGA*(CEB21*C0ST-CEB23*SINT) OP 

C45=OnEGA* (CEB31*C0ST-CEB33*SINT) OP 
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FILE: OPTPEOPG FORTRaH a 


PHINCSTOK DSI7SRSITY 


TIME-SH&RIHC 


XSD=7X^«X^-C141<'Cin*&GL03B 
ZED=+¥Z+WZ+C341*C1 11*AGLOBE 
IED=VY^WI4-C141*C21 1«AGLOBS<-C241^C11 1*&GLOBE 

C413=OHEGA* (CEB1 l*SINT+CEB13*COST) 

C412=OMEGA* (CEB21*SINT+CEB23*COST) 

C411=OHEGA* (CEB31*SINT+CEB33»COST) 

CEHTl=-OM£GA**2*AGLOBE*CH1 !♦. 5*SIN2T 
CENT2=-OilEGA**2<'AGLOBE*Ct 1 1 1<«COST**2 
C47=2* (*WR*CEB21~WQ*CEB31) ♦OBEGA*CEB12*SINT 
C48=2* (♦»R*CEB22-WQ*CEB32)-C413 . . 

C49=2* (+WR*CEB23-HQ*CEB33) -0HEGA*CEB12*C0ST 

C57=2* (-HR*CEB11 + WP*CEB31) ♦0HEGA*CEB22*SIHT 

C58=2* (-WR*CEB12+WP*CEB32.) -C412 

C59=2* (-MR*CEB 1 3+WP*CEB33) -OHEGA*CZB22*COST 

C67=2* (+HQ*CEB1 1-WP*CEB21) +OflEGA*CEB32*SIKT 

C68=2* ( + WQ*CEB12-HP*CEB22) -C41 1 

C69=2* (+WQ*CEB13-¥P*CEB23) -0aEGA^CEB32*C0ST 

C .... 

-C*** 

D0SPED=-WQ*WSPEED+WR*7SPEED ♦ACCX^GSAVI 

H-C45*?SPEED^C64*WSPEED . 

2*C47*HX+C48*»y+C49»WZ+CEHT1*CEBl1+CENT2*CEB13 

C* . - 

-C* 

D7SPED=-WR*0SPEED+»P<'WSPEED+ACCI*GRA71 

1-C45*nSPEED+C56*HSPEED 

2+C57*WX+C58^WY+C59*HZ*CEHTl*CEB21+CENT2*CEB23 ■ 
D¥SPED=+WQ*aSPEED-BP*7SPEED+ACCZ+GRA7l 

1*G64*aSPEED-C56*7SPEED - 

2*C67*WX+C68*BY+C69*WZ+CE»T1*CEB31*CEHT2*CEB33 
C .... 

DHX=O.ODO 

DHY=0.0D0 

DWZ=O.ODO 

DBDH£1=O.ODO , 

DBDaE2=0.0D0 



-C , . . . 

RETORH 

EHD 

SUBHOOTIHE OOTPT 

IHPLICIT REALMS (A-H,0-$) 

COHMOII/COH/C(2000) ■ . 

COHMOR/IIfCOH/IC (500) 

DIHEHSIOH HDHE(7) ,70R (7) 

C*** 

DIHEHSIOS XST1 (7) ,YST1 (7) ,ZST1 (7) ,DIREQ1 (7) 

EQ0I7ALEHCE (C (1257) ,XSTl (1) ) r^(C ( 127-1) ,IST-1 (1) ) , (C (1285) ,ZST1 (1) ) 
SQni7ALEHCE (C (1299) ,OIREQ1 (1) ) , (IC (252) ,ISTDH1) , (IC (253) ,IST701) 
EQ0I7ALENCE (C (993) ,HB 1 (1 , 1) ) . . . 

EQUIVALENCE (C ( 1 235) , ZCAL (1 ) ) 

DIHEHSION ZCAL (8) ,HB1 (8, 11) 

C ■ ■ ■ ... ... 
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EQUIVALENCE (C (309) , CHAD) OP-; 

EQUIVALENCE (C(473),ZE) OP*: 

EQUIVALENCE (C (305) , TINE) . OP'^ 

EQUIVALENCE (C (315) ,WQ) , {C (499) ,VX) , (C (503) ^VZ) , (C(469) ,XE) OP^ 

EQUIVALENCE (C(327),TET) . . OP' 

EQUIVALENCE (C (325) ,PSI) , (C (329) , PHI) OP 

EQUIVALENCE (C (313) ,HP) , (C (317) ,WE) , (C (501) ,VI) ^ (C (471) ,IE) OP 

EQUIVALENCE (C (493) ,ACCX) , (C (495) , ACCT) , (C (497) , ACCZ) OP 

EQUIVALENCE (C{481) ,USPEED) , (C(483) ^VSPEED) , CC(485) ^WSPEED) OP 

EQUIVALENCE (C (507) , AGLOBE) (C (509) , EPS2) OP 

EQUIVALENCE (C (5 1 1) ,TLAH0) , (C (5 1 3) ,SMEW0j OP 

DIHENSIOH XDHE(7) ,IDHE(7) ,ZDME{7) OP 

C***-- ....... .... OP' 

TLAH=TLAMO+XE/AGLOBE OP' 

COST=DCOS (TLAM) OP 

SINT=DSIN (TLAH) OP' 

IANT=SINT/COST . OP' 

•SSEH-SHEWO+IE/AGLOBE/COST OP' 

- SIN2T=2*SINT*COST • OP' 

COS2T=COST*COST-SINT*SINT - OP' 

C1111=1.0DO~.5DO*EPS2*COS2T-ZE/AG10BE OP 

AC1111=AGL0BE*C1111 OP' 

COSS=DCOS (SMEW) ... . OP' 

SINS=DSIN (SMEW) OP 

BX1=EPS2*SIN2T*COST*COSS-C 1 1 1 1’*?SIHT*C0SS-C1 1 1 1 *TANT*SINS*YE/ AGLOBEOP 
BX2=EPS2*SIN2T»COST*SIHS-C11 11*SINT*SINS+C1in*TANT+C0SS*TE/AGL0BEQP' 
RX3=EPS2*SIH2T*SINT+C 11,1.1 *€031 OF 

C ■ • - . ■ . : . OP' 

..C***VECTORS X OF MODEL A AND Z(K-TB TIME POINT) OP MODEL B (WITHOUT OP' 

..g*^*accel) transfbrhed from ISIT . - OF 

' • C • . 0P' 

VAIR2=USPEED**2+VSPEED^*2+WSPEED**2 OP* 

7AIB=DSQHT(VAIR2) OP 

VRP=VSFEED OP' 

OSPD=USPEED . . OP 

• BETA=DATAN2 (VBP^USPD) OP 

WQB=WSPEED . OP 

ALPHA=DATAN2 (WQR,USPD) OP 

DO 301 I=1,ISTDM1 . OP' 

XDHE(I)=AC1111*COST*COSS-DCOS(XST1(I) )*DCOS(TST1 (I)) * OP' 

1 (-ZST1 (I) +AGLOBE* {1.0D0-.5D0<'BPS2*DCOS(2*XSTl (I) ) ) ) OP' 

IDHE(I^-AC1111*C0ST<'SINS-DC0S(XST1(I))*DSIN(IST1 (I))* OP 

1 (-ZST1 (I) ♦AGLOBE*<1.0Da-,.5DO*EPS2*DCOS(2»XSTl (-1) ) )) OP' 

- ZDME(I) =AC11t1*SINT -DSIN (XSTl (I) ) ♦ - OP 

1 (-ZST1 (I)+AGLOBB^(1.0D0^.5DO'*'EPS2*DCOS(2*XST1{I)))) OP' 

C***XST,YST ARE LATITUDE AND LONGITUDE - - OP' 

301 BDME(I)=DSQRT(XDME(I)**2-HDHE(I)**2+ZDME(I)»=*‘2) OP' 

C ■ - • : . . .- . .. - OP' 

C*301 RDME(I) =DSQRT((XE-XST1 (I) ) ♦*2+ (IB-TST1 (I) ) **2+ (ZE-ZST1 (1) ) ♦♦Z) OP' 

-C - OP'. 

DO 302 I=1,ISTV01 OP' 

302 VOB(I)=1. OP' 

C*** ..... OP' 

ZCAL(1)=VAIR OP'. 

ZCAL(2)=ALPHA OP*: 
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PILE: OPTPROPG FOHTSAN 


A 


PRINCETON 0NI7ERSITI TIM B= SHARI Hi 


Z /^»T 

( J) — 0£ii.A 

ZCAL{4)=-ZB 
ZCiL (5) =HDSE (1) 

ZCAL (6) =EDHE (2) 

ZCAL(7)=708 (1) 

ZCAL(8)=VOB (2) 

C ... 

HB1 (5, 1) = (RX1*XDHE(1) +RX2*YDME (1) +RX3*ZDME (1) ) /RDME(1) 

HBI (6,1) = (RX1*XDME (2) *RX2’*‘YDME (2) +RX3*ZDi!E (2) ) /RDHE{2) 

HB1 (5,2) = (-C1 11 T*SINS*XIM!E (1) +d 1 1 1 ♦COSS^YDilE (1) ) /HDHS (1) 

- HBI {6,2) = (-Cl111«SIKS*XDME (2) +C1 1 1 1*COSS*YDME (2) ) /EDME (2) 

HBI (5,3) = (-COST*COSS*XDHE (1) -COST*SINS* YDME (1) -SINT+ZDME (1) ) 
1/HDHE (1) 

HBI (6,3) = (-COST*COSS*XDME (2) -COST^SISS^YDHE (2) -SINT+ZDME (2) ) 
1/RDME{2) . . 

HBI (7,1) =-(YE-YST1 ( 1 ) ) / (EDHE ( 1) **2- (ZE-ZST1 ( 1) )**2) 

HBI (8,1) =-(YE-YST1 (2) )/(RDME(2) **2-(ZE-ZST1 (2) ) *^2) 

HBI (7,2) = (XE-XST1 (1) ) / (EDME ( 1) ♦♦2-(ZE-ZST1 (1) ) *’♦'2) 

HBI (8,2) = (XE-XST1(2) )/(EDRE(2)**2-(ZE-ZST1 (2) ) **2) 

HBI (1,4) =OSPEED/VAIR 

HBI (2,4)=-»SPEED/(7AIH2-VSPEED**2) 

HBI (3,4) =^7SPEED/(VAIR2=WSPEED’«'=«'2> 

HBI (1,5)=7SPEED/7AIR 

HBI (3,5) =aSPEED/(7AIR2-HSPEBD*=*!2)^ 

HBI (1,6) =WSPEED/7AIR 

HBI (2, 6) =OSPEED/ (7AIR2-7SPEED**2) 

C 

RETURN 

END . 

PDHCTION SATP (X11,XH11) 

IMPLICIT REAL*8 (A-!*H,0-^$) 

SATF=DSIGH(DMIN1 (DABS{X11) ,XH11),X11) 

RETURN 

END 

SUBROUTINE ROTAT 

IMPLICIT RBAL*8 (A-H,0-$) 

COMMON/COM/C (2000) 

EQUI7ALENCE (C (327) ,TET) , (C (351) ,CEB 1 1) , (C (355) ,CEB1 3) 

EQUI7ALENCE (C (363) ,CEB31)^ (C (367) ,CEB33) - 

EQUI7ALEHCE (C (34 1) ,CST) , (C (343) ,SNT) 

EQUI7ALENCE (C (325) ,PSI) , (C (329) ,PHI) , (C (353) ,CEB12) 
EQUI7ALENCE (C (357) ,CEB2 1) , (C (359) ,CEB22) , (C (361) , CEB23) 
EQ0I7ALEHCE (C (365) ,CEB32) , (C (345) ,CSP) ,-{C(347) ,SNP) 
EQUI7ALENCB (C (337) ,CSF) , (C (339) , SNF) 

C - . 

SNT=DSIN (TET) 

CST=DCOS (TET) 

SNP=DSIN (PSI) 

GSP=DCOS (PSI) 

SNF=DSIN(PHI) 

CSF=DCOS (PHI) 

C 

■ - CEB11=CST*CSP 

- CEB13=-SMT 

CEB3 1=+SNT+CSF*CSP+SNF*SNP 
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PRIHCETOS UNIVERSITY TINE-S3ARING E 


CEB33=CST*CSF OP: 

CEB12=CST*SNP OP- 

CEB21=SNF*SNT*CSP-CSF*SHP OP: 

CEB22=SNF»SNT*SNP+CSF*CSP OP": 

CEB23=SNF*CST . . OP' 

CEB32=CSF*SNT*SMP-SNF^CSP OP' 

RETURN ... OP' 

END OP' 

SUBROUTINE DITOB (XI, YI , ZI , A 1 1 , A 12 ^ A13, A2 1 , A22, A23 , A3 1 , A32, A3 3 ^ OP' 

1XO,YO,ZO) . . OP' 

IflPLICIT REALMS (A-H,0-$) OP' 

X0=A1 1*XI+A13*ZI+A12*YI OP' 

Z0=A31*XI+A33*ZI + A32*YI . OP' 

IO=A21*XI+A22»YI+A23*ZI OP' 

RETURN . OP' 

ENTRY DBT0I(XI,YI,ZI,A11,A12,A13,A21,A22,A23,A31,A32,A33, OP' 

1X0,Y0,Z0) OP' 

X0=A1 1*XI*A31*ZI+A21*YI OP' 

ZO=A13*ri+A33*ZI*A23*YI OP' 

T0=A12*XI+A22*YX+A32*ZI OP 

RETURN OP' 

■ END , OP' 

SUBROUTINE HKG OP' 

IMPLICIT REALMS (A-H,0-$) - - OP' 

DIMENSION IPL(IOO) ,IPD (tOO) . OP' 

COHMON/COM/C(20aO) - ■ - OP' 

COMMON/HK/AEK(4) ,BRK(4)„CHK(4) ,QRK (100) OP 

COHMON/INCOM/ICC500) - OP 

C - : OP' 

EQUIVALENCE (IC(201),N) OP' 

EQUIVALENCE (C (303) ,H) , (IC (24 1) , J) OP 

EQUIVALENCE (IC (1) ,IPL (1) ) , (IC (tOI) ,IPD (1) ) 0P' 

C - - OP' 

DO 100 1=1 ,.N . OP' 

IL=IPL(I) OP' 

ID=IPD(I> - OP 

X1=C(ID)*H OP' 

X2=(X1-BRK(J)*QHK(I))*ARK(J) OP' 

C (IL)=C (IL) +X2 - °OP' 

100 QRK(I) =QRK(I)+3. 0D0*X2-CRK(J)*X1 - OP: 

C - OP' 

- RETURN OP' 

END OP' 
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FILS; OPxSMOOI FOSTHAH A 


PHINCETOK OSI7ERSITY TI?!E-SHARIHG 

C* , C 

C^^OPTIMAL SSOOTHING PROGRAM Q 

C* - Q 

IMPLICIT RBAL*8 {A-a,0-$> 0 

REAL»4 XS1 (1 1) ,PS1 (9,9) ,XAS (6, 1) G 

COMMOH/DATO/PERCNT, DT, TLAMO, OMEGA, AGLOBE, EPS2, IDGT, SSTEP, HXP , SOF 0 
LOGICAL GO,SOF . 0 

NAMELIST/IHP/PILE C 

INTEGER FILE (2) 0 

NIMELIST/OK/GO C 

HAMELIST/DAT/SOP,HSTEP,HXP,PEHCHT,DT,IDGT,TLAf!0 C 

1, OMEGA, AGLOBE,EPS2 . , G 

C*** C 

DEFINE FILE 17 { 150 , 368 , L, KSTEPG) C 

DEFINE PILE 12 ( 150, 2112, L - ,KSTEPA) C 

DIMENSION XPK12 (11) ,XMK12 (11) ,PPK12(11, 11) ,PMK12(11, 11) 0 

C* .... - Q 

DIMENSION XPK1 (6) ,XMK1 (6) ,XPK (6) ,XMK (6) 0 

1, PPK1 (6, 6) ,PHK1 (6,6) ,PPK (6,6) ,-PHK (6,6) 0 

2, FK(6,6) ,TMAT (6,6) ,TMATT (6,6) ,PTMATT (6,6) G 

3, PIN7(6,6) ,HKAREA(60) ,AK(6,6) ,AKT(6,6) C 

4, DELX(6,1) ,DELP{6,6) ,DELXES(6,1) ,XS{6) C 

5, AKDELP(6,6) ,ADPAT(6,6) ,PS (6,6) S 

6, PHK2(6,6) Q 

C*** ... .. . Q 

DIMENSION B60 (6,6) ,PKDT (6,6) , SOME (6,6) ,SUME1 (6,6) Q 

C*** — C 

1 CONTINUE 0 

PRINT 1002 0 

1002 PORMAT(TH ,»TIPE SINP PI1E= SEND*) 0 

BEAD (S, IIP) 0 

INF1=FILE(1) 0 

INF2=PILB(2) 0 

-PRINT 2000, FILE 0 

2000 FORMAT (2110) 0 

PRINT 1004 .. 0 

1004 FORMAT (IH ,»TIPE 6DAT DATA= SEND*) Q 

BEAD (IHF1 ,DAT) - 0 

IF(SOP)GOTO 92 Q 

PRINT 1003 0 

1003 FORMAT (Ifl ,* IP E7ESITHIHG O.K.. TYPE 50K GO=. TROE.SEND* ) 0 

GO=.TROE. - - 0 

READ (5, OK) 0 

- IP (GO) GOTO TO . - 0 

GOTO 1 . . 0 

10 CONTINUE . Q 

C*** - 0 

C*** 0 

- KSTEP=NSTEP ' , 0 

KSTEPI^O 0 

C*** . . 0 

KSTEPA=KSTEP 0 

C* .. . 0 

PI=4,0D0*DATAN (1.0D0) 0 

CRAD=180.0DO/PI . . , 0 
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PILE: OPTSHOOT FORTEAN A PRINCETON aNIVEESITT TIMS-SHARING S 

C*** OPT 

HEAD (10) (IAS (I, 1) ,1=1,6) OPT 

READ(12»KSTEPA) (IPK12(I) ,1=1,11) OPT 

1, (XMK12 (I) ,1=1,11) , (.(PPIC12 (I,J) ,1=1, 11) ,J=1,11) OPT 

2, ((PHK12(I,J) ,I=1,11) ,J=1,11) OPT 

C* • OPT 

DO 431 1=1, HIP OPT 

XPKl (I)=XPK12 (I) OPT 

431 XHK1 (I)=XHK12 (I) OPT 

DO 432 1=1, HXP OPT 

DO 432 J=1,HXP OPT 

PPKI (I,J)=PPK12 (I, J) OPT 

432 PHK1 (I,J)=PHK12 (I, J) OPT 

C*** - - OPT 

DO 581 1=1, NIP OPT 

581 XS (I) =XPK1 (I) OPT 

- DO 582 1=1, NXP OPT 

DO 582 J=1,NXP OPT 

582 PS(I, J)=PPK1 (I,J) QP" 

KSTEPG=KSTEP OPT 

DO 709 1=1, NXP OPT 

709 XS1 (I)=XS (I) OPT 

DO 710 1=1, NXP OPT 

DO 710 J=1,HXP OP': 

710 PS1 (I,J)=PS (I,J) OPT 

XS1 (7) =XPK12(7) OPT 

XS1 (8)=XPK12(8) OPT 

XS1 (9)=XPK12<9) .. OPT 

DO 801 1=7,9 OPT 

DO 801 J=1,9 OFT 

801 PSl (I,J)=PPK12(I,J) OPT 

DO 802 1=1,6 - . OPT 

DO 802 J=7,9 .. OP': 

802 PSl (I,J)=PPK12(I,J) OPT 

C***- ■ Op-; 

XS1 (10) =XPK12 (10) OPT 

XS1 (11)=XPK12(11) OPT 

WHITE (17* KSTEPC) (XS1 (I) ,1=1,11) OP'! 

1, ((PS1(X,J) ,1=1,9) ,J=1,9) OPT 

C*** OPT 

DO 591 1=1, NXP OPT 

DO 591 J=1,NXP OP-^ 

591 PK(I,J)=0,. OPT 

OPT 

- C*** , . OPT 

301 CONTINOE OPT 

KSTEP=KSTEP-1 OPT 

IF(KSTEP-LT-1)GOTO 311 OPT 

' KSTEP1=KSTEP1+1 OPT 

C*** OPT 

- KSTEPA=KSTEP OPT 

C*** OPT 

HEAD (10) (XAS (I, 1) ,1=1,6) OPT 

- READ (12'KSTEPA) (XPK12 (I) ,1=1, 11) OPT 

1, (XHK12 (I) ,1=1,11) ,.((PPK12(I,J) ,1=1,11) ,J=1, 11) OPT 
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PXX«S« OPXSMOOT POHTRAN & 


PSIHCETOB aHIVSRSITY TIME-SHAHIM 


2^ ( {PMK12 CI.-J) .-I=U-11) -J=1- 11) 

DO 441 I=1*,HXP 
XPK =XPK12 (I) 

441 XHK(I)=XHKl2(li 
DO 442 1=1, NIP 
DO 442 J=1,NXP 
PPK(I,J)=PPK12(I,J) 

44-2 PMK {I, J) -PSK12 (I, J) 

.C»**FK-HATRIX COMPOTATIOM 
WP=XAS{1,1) 

HQ=XAS(2,1) 

WR=XAS(3, 1) 

PHI=XAS(4,1) 

TET=XAS(5,1) 

PSI=XAS(6,1) 

SST=DSIN (TET) 

CST=DCOS (TET) 

SHP=DSIH(PHI) 

CSP=DCOS (PHI) 

. - SNP=DSIH(PSI) 

CSP=DCOS (PSI) 

C*** . , 

- CEB11=CST*CSP ; 

CEB12=CST=*‘SMP 

CEB13=’-SMT . 

•GEB2 1 =S SP*S ST^CSP-CSP^S NP 
CEB22*SHP*SHT»SNP+CSP*CSP. 

CEB23*<«SMP*CST 

CEB31=SHT*CSF*CSP+SHP*SNB 

CEB32=CSP*SNT*SNP^SNF*CSP 

CEB33=+CST*CSP 

C*** 

XE=XPK(1) 

IE=XPK(2) 

ZE=XPK(3> 

HSPEED=XPK(4) 

VSPEED=XPK(5) 

HSPEED=XPK{6) 

C*** 

HX=XPK12(7) 

HI=XPK12(8) 

iZ=XPK12(9) 

C^** 

TLAM=TLAMO+XE/AGLOBE 

COST=DCOS(TLAH) 

- SINT=DSIH(TLAM) 

* TANT=SIHT/COST 

SIH2T=2*SIHT*COST 
‘ GOS2T=COST*COST-SIIIT*SINT 

- G1111=1.0D0-ZE/AGLOBE-.5D0*EPS2’«'COS2T 

C112=1/Gini 


C* 

C* 
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FILE; OPTSaOOT POHTRAN A 


PRIHCETOH aNIVEESITY TIME-SHARING 


C141=C1t2* (ZE/AGL0BE+.5*EPS2*C0S2T) OP 

Cl 11= (CEB1 1*USPEED+CEB21*7SPEED+CEB31*WSPEED+WX) /AGLOBE OP 

C211= (CEB12*OSPEED+CEB22*VSPEED+CEB32^tfSPEED+¥Y) /AGLOBE OP 

C241=-C112*YE*TANT/AGL0BE . OP 

C341=C112*EPS2*SIN2T OP 

C56=OHEGA* (CEB1 1*COST-CEB13*SIHT) OP 

C64=OMEGA* (CEB21*COST-CEB23*SINT) OP 

C45=OHEGA* (CEB3 1*COST-CEB33*SINT) OP 

C*** OP 

C413=OHEGA* (CEB1 1*SINT+CEB13*COST) OP 

C412=OMEGA*(CEB21*SINT+CEB23*COST) OP 

C411=OMEGA* (CEB31*SINT+CBB33*C0ST) . - OP 

CENT1=-0MEGA**2*AGL0BE*C1111*.5*SIN2T OP 

CENT2=-0MEGA**2*AGL0BE»C1111*C0ST**2 OP 

C47=2* (+WR*CEB21-¥Q*CEB31) ♦0HEGA*CEB12»SINT OP 

C48=2* (+WR*CEB22-WQ*CEB32) -C413 . . OP 

C49=2* C+WR*CEB23-WQ*CEB33) -0MEGA*CEB12*C0ST OP 

C57=2* (-iH*CEB11 + »P*CEB31) +OHSGA*CBB22=<‘SIHT OP 

C58=2* (-WR*CEB12+WP’*'CEB32) “C412 OP 

C59=2* (~HE*CEB13+WP*CEB33) -OMEGA*CEB22*COST - OP 

C67=2*(+WQ*CEB11-MP*CEB21) +OMEGA*CEB32*SINT OP 

C68=2*(+HQ*CEB12-WP*CEB22) -C411 OP 

C69=2* {♦iQ*CEBl3-«P^CEB23) -OMEGA*CEB32*COST OP 

C* - - OP 

C1122=C112*C112 OP 

C2112=C211*C1122 - OP 

C13=C111*C1122 OP 

C11=”EPS2*SIM2T*C13 OP 

C31=C111*C112*EPS2*(2*C0S2T-C112»EPS2*SIN2T*SIH2T) OP 

C33=C13*BPS2*SIH2T OP 

C21=-EPS2*SIH2T*C2112+C13* {-01111+. 5D0*EPS2*SIN2T*SIN2T) *YE/ OP 

1 AGLOBE/COST/COST OP 

G22=-C111*C112*TANT OP 

C23=C2112-C13*TAHT*YE/AGL0BE OP 

C14=C141*CEB11 OP 

C15=C141*CEB21 OP 

C16=C141*CEB31 OP 

C24=C241»CEB11+C141*CEB12 OP 

C25=C241*CEB21+C141*CEB22 OP 

C26=C241*CEB31+C141*CEB32 OP 

~ C34=C341*CEBi1 OP 

-- C35=C341*CEB21 OP 

C36=C341#CEB31 . OP 

C17=C141 OP 

C27=G241 op 

C28=C141 . OP 

C37-C341 OP 

C411=OHEGA*{CEB31*SI!IT+CEB33»COST) OP 

C412=OflEGA+'(CEB21*SIHT+CEB23*COST) OP 

G413=0HEGA*(CEB11*SINT+CEB13*C0ST) OP 

C433=0HEGA*C0ST OP 

G43=C433*C413 OP 

C53=C433*C412 - OP 

C63=C433*C411 OP 

- C0ST1=C0ST*0MEGA/AGL0BE OP 
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FILE: OPTSMOOT FOHTRAN A 


PRINCETON 0NI7ERSITI TIHE- SHlHINi 


oj.ax I— bxfi i‘*‘unx»uA/ Aui^uofi ^ 

C41 1 t=(Cl111*COS2T + ,5D0*SPS2<‘SIH2T*SIM2T) ♦OHEGA^ONEGA 
C4112= (Cl t1 1«SIN2T- EPS2*SIN2T^COST*COST) *OaEGA4=OH EGA 

C41= (WSPEED^C4 12^?SPEED*C4 1 1) /AGLOBE 

1-CEB1 1*C4 1 1 1+CEB13+C4 1 12+COST1* (WX*C£B12-WT*CEB11) +SIHT1 ♦ ( 

2 WY*CEB13+MZ*CEB12) 

C51= (OSPEED+C4 1 1-WSPBED*C4 1 3) /AGLOBE 
1-CEB21*C4111+CEB23*C4112+COST1* (WX*CBB22"WY*CEB21) +SINT1*( 

2 HY*CEB23+WZ<‘CEB22) 

C61= (7SPEED*C413-aSPEED*C412)./AGLOBE 

1-CEB31*C41-11+CEB33*C4112+C0ST1*. (WX*CEB32-HY*CEB3 1) +SINT1* ( 

2 WY*CEB33+iZ*CBB32) . . - 

C65=-C56 
C46=-C64 
C54=-C45 
FK(1,1)=C11 
FK(2^1)=C21 
FK(3,1)=C31 
FK(4,1)=C41 
FK{5,1)=C51 
FK(6,1)=C61 

FK(2,2)=C22 . . 

FK(1,3)=C13 

FK(2,3)-C23 

FK(3,3)=C33 

FK(4,3)=C43 

FK(5,3)=C53 
FK(6,3)=C63 
- FK(1,4)=CEB11+C14 

FK (2,4)=CEB12+C24 

FK (3, 4) =+CBB1 3+C34 
FK(1,5)=CEB2H'C15 - 

FK (2,5)=CEB22+C25 
FK (3, 5) =+CEB23+C35 
FK(1,6)=CEB31+C16 . 

FK(2,6)=CEB32+C26 

• FK(3,6)=+CEB33+C36 . 

FK (5,4)=-HB+C54 
FK(6,4)=WQ+C64 
FK(4,5)=HS*C45 
FK(6,5)=-WP+C65 
- FK (4,6)=-WQ+C46 
FK(5,6)=»P+C56 

C* . 

C*CALLIHG THE SOBSOOTINE FOR COMPDTATIOH OF THE STATE TRANSITION MATRIX 
C***- . .. 

- CALL CSTH(FK,PERCHT,DT, THAT, B60,FKDT, SOME, S0ME1,NXP,NTERMS) 

DO 600 1=1, HXP - 

DO 600 J=1,HXP 
600 THATT(J,I)=TMAT(I,J) 

C*** 

- DO 701 1=1, NXP 

DO 701 J=1,NXP ( 

701 PHK2 (I,J) =PMK1 (I, J) ( 

C*** ... j 
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FILE: OPTSMOOT FORTRAN A 


PRINCETON UNIVERSITY TIME-SHARING 1 


CALL LINVlF(PHK2,NXP,NXP,PINV,IDGT,iKAHEA,IERl) OP 

CALL VMULFF {PPK,TMATT,NXP,NXP,NXP^NXPjNXP^PTHATT,NXP,IEH2) OP' 

CALL vholff(ptmatt,pinv,nxp,nxp^hxp,nxp,nxp^ak^nxp,ier3) op 

DO 601 1=1, NXP OP' 

DO 601 J=1,NXP OP 

601 ART (J,I) =AK (I, J) .OP 

DO 602 1=1, NXP OP 

602 DELX (1,1) =XS (I) -XMK1 (I) OP 

DO 603 1=1, NXP OP 

DO 603 J=1,NXP OP 

603 DELP(I,J)=PS{I,J)«PHK1 (I,J) OP 

CALL VflULFF(AK,DELX,NXP,NXP,l,NXP,NXP,DELXES,NXP,IEE4) OP 

DO 604 1=1, NXP . . OP 

604 XS{I)=XPK(I) +DELXES(I,1) OP 

CALL ViiaLFF(AK,DELP,NXP,NXP,NXP,NXP,NXP,AKDELP,NXP,IEE5) OP 

CALL VHULFF(AKDELP, AKT,HXP,NXP,NXP,NXP,NXP,ADPAT,NXP,IER6) OP 

- DO 605 1=1, NXP OP 

DO 605 J=1,HXP OP 

605 PS{I, J)=PPK (I,J) +ADPAT (I,J) OP 

C*^* . . .. OP 

IF(KSTEP1.LT-5) GOTO 253 OP 

KSTEP1=0 OP 

DO 251 1=1, NXP OP 

DO 252 J=1,MXP OP 

IF(I.LE.J)GOTO 252 OP 

PS(I,J)=.5D0*(PS(I,J)+PS(J,I)) OP 

PS (J,I) «PS (I,J) OP 

252 CONTINUE OP 

251 CONTINUE OP 

253 CONTINUE . OF 

C*** OP 

DO 711 1=1, NXP OP 

711 XS1 (I)=XS(I) OP 

- DO 712 1=1, NXP OP 

DO 712 J=1,NXP OP 

712 PS1 (I,J)=PS (I,J) . OP 

- KSTEPG=KSTEP . OP 

XS1 (7)=XPK12 (7) OP 

XS1 (8)=XPK12(8) OP 

XS1 (9)=XPK12(9) OP 

DO 803 1=7,9 . OP 

- DO 803 J=1,9 OP 

803 PS1 (I,J)=PPK12(I,J) OP 

DO 804 1=1,6 - . OP 

DO 804 J=7,9 OP' 

804 PS1 (I,J)=PPK12 (I, J) - OP 

. XS1{10)=XPK12 (10) OP 

XS1 (11) =XPK12(11) , OP 

NRITB(17‘KSTEPG> (XS1 (I) ,1=1, 11) OP' 

1, ((PS1 (I,J) ,1=1,9) ,J=1,9) - OP 

C***COPY K-AEEAS INTO (K*1)-AREAS X.E. INTO * PREVIOUS ». AREA, OP' 

C***-“GOING FROH END TO BEGINNING OF FILE. OP' 

. - DO 631 1=1, NXP ... OP' 

DO 631 J=1,NXP OP' 

631 PHKl (I,J)=PaK (I, J) OP' 
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PILE; OPTSMOOT PORTB&H 


k 


PBIHCETOH 0NI7EHSITY TIME-SHAEIM( 


DO 632 1=1, NXP S 

632 XMK1 (I)=IHK (I) ! 

C*** « 

GOTO 301 « 

C*** « 

C*** < 

311 CONTIMOE i 

i 

c*** ( 

GOTO 1 . ( 

92 CONTINDB ( 

STOP . ( 

END . ( 

BLOCK DATA i 

IMPLICIT EEAL*8 {A-H,0-^$) { 

COMHON/DATO/PERCNT,DT,TLAMO, OMEGA, AGLOBE,EPS2,.IDGT,NSTEP, NXP, SOP C 
LOGICAL SOP . , C 

DATA SOP/ .FALSE. /, NSTEP/60/, NXP/6/ t 

1,PEHCNT/.O0OOO1DO/,DT/l.ODO/ « 

2,IDGT/3/ i 

3,TLAM0/.7O0DO/ { 

4,OMEGA/.0000728D0/,AGLOBE/20940000.OD0/,EPS2/.-0067D0/ ( 

END - C 
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PILE: OPTSHPB FORTRAN A 


PRINCETON UNIVERSITY TINE-SHARING 


C***THIS PHOGRAH CREATES A HON-DIRECT-ACCESS-DATA-FILE FOE XAS OR OP 

C***XBS FOR OUTPUT OR FURTHER PROCESSING OP 

C* . ■ . OP 

DIMENSION J{15),Z(11) OP 

1 ,RDME(7) ,XDNE(7) ,YDNE(7) ,ZDHE(7) OP 

COMHON/DATO/SOF,J,NSTEP,N, NAMES, TLAMO,AGLOBS . OP 

1 ,EPS2,SMEM0,ISTDME,XST(7) ,YST(7) ,ZST(7) OP 

INTEGER FILE (2) OP 

DIMENSION NAMES (38) ,NAMESl (38) ,XS (11) , PS (9,9) , SUM (14) ,STDZ (10) OP 

1 ,BIAS(11) ,SUM1 (14) ,TEMP(14) OP 

LOGICAL GO, SOP OP 

HAMELIST/INP/FILE . OP 

NAMELIST/OK/GO OP 

NAHELIST/DAT/SOP, J,NSTEP,N,TLAMO, AGLOBE OP 

1 ,BPS2,SM£W0,ISTDME,XST,YST,ZST OP 

C*** OP 

DEFINE FILE 10 (60, 368, L, KSTEP1) OP 

C*** . .... OP 

-1 CONTINUE OP 

PRINT 1002 . - . OP 

1002 FORMAT (Ifl ,'TYPE 6INP PILE= SEND*) OP 

READ (5, IBP) 0P 

INF1=FILE(1) ... OP 

INP2=PILE(2) OP 

PRINT 2000, FILE . . . OP 

2000 FORMAT (2110) . OP 

-PRINT 1004 OP 

1004 FORMAT (1H ,»TyPE SDAT DATA= SEND*) ... OP 

READ (IMF1, DAT) _ .. .. OP 

IF(SOF)GOTO 92 OP 

PRINT 1003 OP 

1003 FORMAT (1H,* IF EVERYTHING 0. K. TYPE 60K GO=. TRUE. SEND » ) QP 

GO-. TRUE- - - 0P 

READ (5, OK) OP 

-IF (GO) GOTO 10 . OP 

GOTO 1 OP 

10-COHTINUE OP 

C**^ . .. ... . ' OP 

- DO 331 1=1,14 OP 

SUH1(I)=0. - OP 

331 SOM (I) =0. QP 

C*** - OP 

DO 991 J1=1,NSTEP OP 

KSTEP1=J1 .. -OP 

READ (10'KSTEPI) (XS (I) ,1=1,11) OP 

1, ((PS(I,J7) ,I=1,9)-,J7=1,9) OP 

c*** ...... ... ... OP 

CGST=COS(TLAM0+XS(1) /AGLOBE) OP 

XS:(2) =XS(2)/COST OP 

C*** OP 

DO 302 1=1,9 OP 

DO 302 J8=1,9 OP 

IF(PS (I,J8) .LT.0.)PS (I,J8) =100. OP 

302 PS(I,J8)=SQRT(PS(I,J8))- OP 

c*** . OP 
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PILE: OPTSfiPE FOExSAN 


PRINCETON (JNI7ERSITY TIME-SHARIM 


A 




OOTTW /in 


/rc tr\ 


T— i Q\ 


READ (14) (Z(I3) ,13=1,11) 

I?{NSTEP.3T. 150)GOTO S23 

WRITE(12,903) J1 , (XS (I) ,1 = 1,6) , (PS (I,I) ,1=1,6) 

903 POHHATC ’ 1 10, 1 2F 1 0. 3) 

8SITE{12,905)J1, (XS(I) ,1=7,9) , (PS (1,1) ,1=7,9) 

905 FORHATC • ,110, 6F20. 3) 

923 CONTINUE 

C***NOT TO WASTE TDISK SPACE, WHILE ACTUALLY PROCESSING 


-C**** ■ . ......... 

. 0SPD=XS(4) 

- 7SPD=XS(5) 

WSPD=XS (6) 

-XE=XS(1) 

- YE=XS (2) ♦COST 

C***xs(2) HAS BEEN REDEFINED AT THE BEGINNING OP THIS PROGRAM. 

ZE=XS(3) 

7AIR=SQET (USPD++2 + 7SPD**2+WSPD^*2) 

ALPHA=57.3*ATAN2 (WSPD,USPD) - - 

BETA=57.3^ATAH2 (7SPD,USPD) 

HH=-ZS . , 

IF(J1.EQ.t)PHINT 931,XS(1),XS(2) 

931 PORMAT(* S2F10.0) 

C*^^ . ... - 


IF (NSTEP.GT. 150) GOTO 921 

...... 

- TLAa=TLA»0+XB/AGLOBE 

COST=COS (TLAfl) 

SIST=SIH (TLAH) 

SHEW=SHEWO+YE/AGLOBE/COST 

COSS=COS (SMEW) 

SINS=SIH.(SaBH) - . I 

cm 1=1.^.5*EPS2*COS(2+TLAM) ( 

AC1111=AGL0BB*Cim < 

DO 30t I=1,ISTDHE . . i 

XD8E (I) =AC1 1 1 1^COST*COSS- (-ZST (I> +AGLOBE* (1 5^BPS2*COS (2^XST (I) ) ( 

1))*COS(XST(I))^COS(YST(-I)) _ .. 

YDBE (I) =AC1 1 1 1^COST*SINS- (-ZST (I) *AGLOBE* ( 1 . 5^BPS2*COS (2*XST (I) | 

- 1))^COS{XST(I))^SIN(YST(I)) 

- ZDME(I)=AC1111^SINT - (-ZST (I) +AGLOBE+ (1 5»EPS2*COS (2 *XST (I) ) i 

- 1) ) ♦SIN{XST(I) ) - ( 

^ HDME(I)=SQET<XDHE(I)**2+YDME(I)**2+ZDHB(I)**2) i 

C* - - < 

C* BDME (I) =SQRT ( (XE-XST (I) ) ♦♦2+ (TB-TST (I) ) **2 ♦ (ZE-ZST (I) ) *^2) < 

-C* . - . s 

301 CONTINUE « 


C^^^ . ■ ... i 

HHITE(15,912) J1,Z (4) ,VAIR,Z (5) ,ALPHA,Z(6) ,BETA,Z(7) ,HM i 

1,Z(8) ,HDHE(1),Z(9),aDME(2),XS(7),XS(8) , (PS(X,X),I-1,6) < 

C*****PHINT 911, J1,Z(4) ,7AIR,Z(5) , ALPHA, Z(6) ,BETA,Z(7),HM < 

C****r ,Z (8) ,RDME (1) ,Z(9) ,HDME(2) ,XS(7) ,XS (8) S 

' 911 FOEaAT(I4,F4.0,F4.0,4F4.1,2F6.0,4F8.0,2F4.0) I 

912 FORHATC ' ,I5 ,2F5. 0,4P4 . 1 , 2F6 . 0 ,4 F8 .0, 2F4 . 0 ,4X,3F6 . 0 ,4 X, 3F5 . 1) ! 
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FILE: OPTSHPR FORTRAN A PRINCETON 0NI7EHSITY TINE-SHARING 

C*** OP 

TEMP( 1)=Z( 4)-7AIH OP 

TEHP( 2)=Z( 5) -ALPHA OP 

TEflP ( 3)=Z( 6)-BETA OP 

TEHP( 4)=Z( 7)^HH OE 

TEHP( 9)=Z( 8)-RDME(1) OE 

TEHP(10)=Z( 9)-RD«E(2) . OE 

TEMP ( 5) =XS (7) . . OE 

TEMP ( 6>=XS (8) . OE 

TEMP{ 7)=XS{10> . . 01 

TEMP( 8)=XS(11) OE 

DO 951 151=1,10 OE 

SOHI {I5T)=S0M1 (151) »TEflP(I51) OE 

951 SDH (I51)=S0a (151) +TEM.P (151) **2 . OE 

GOTO 922 . . . OE 

921 CONTINUE . OE 

WRITE (15,913) J1,Z (4) ,7AIR ,Z (5) ,ALPHA,Z (6) ,BETA,Z (7) ,HM OE 

1,Z(8),XS(1),Z(9),XS(2),XS(7),XS(8) - OE 

913 PORMAT(» * ,I5,2P5.0,4P4. 1,2F6.0,4F8.0,2F4,0,4X,18X,4X, 15X) OE 

C^****PRIHT 911,J1,Z (4) ,VAIR,Z (5) ,ALPHA,Z (6) ,BETA,Z (7) ,HH OE 

..C****% ,Z(8) ,XS(1) ,Z(9) ,XS(2) ,XS(7) ,XS(8) OE 

922 CONTINUE OE 

C**^* OE 

C****»PRINT 996,J1, (XS (I) ,1=1,6) OE 

996 FORMAT (» »,I7,6F10. 3): OE 

C*****PfiINT 997,J1, (XS(I) ,1=7,9) OE 

- 997 FORMAT (' »,I7,3F20.3) OE 

991 CONTINUE . ... OE 

• C-*** ... ... OE 

IF (NSTEP-GT.60) GOTO 953 01 

DO 952 1=1,8 - .. QE 

BIAS{I)=SUai (I)/60 QE 

TEMP2=SDM(I)/59^BIAS(I)**2 - OE 

IF(TEMP2.LT.O.) TEMP2=iaO. - . OE 

952 STDZ (I)=SQRT (TEMP2) OE 

BIAS( 9)=SUM1( 9)/60 OE 

BIAS (10)=SUM1 (10)/60 OE 

TEMP3=S0M ( 9)/59- (BIAS( 9) +BIAS (7) ) OE 

TEMP4=SUa (10)/59- (BIAS (10) +BIAS (8) ) **2 - - OE 

IF(TEMP3.LT.O.) TEMP3=100. . QP 

IF (TEMP4.lt. 0.) TEMP4=100. ... OE 

STDZ( 9)=SQRT (TEMP3) • OE 

STDZ (10)=SQRT(TEMP4) OE 

WRITE (15,914) (PS (I, I) ,1=1,6) , (STDZ (II) ,11=1,4) , STDZ (9) , STDZ (10) OE 

914 F0RHAT( » ♦ , F10. 0, 2F 10. 1-, 3F10. O, 4X,F10 . 0, 2FJ 0.1 ,3F1 0. 0) OE 

-PRINT 915, (BIAS (I) , I=1,-4) , BIAS (9) , BIAS (10) , (STDZ (11) ,11=1,4) OP 

1 ,STDZ(9) ,STDZ(10) . OE 

915 FORMAT (• » ,F6.0, 2F6. 1 , 3FS- 0 ,7X ,F6.0 , 2F6. 1, 3F6. 0) OE 

953^ -CONTINUE . .. OE 

ENDFILE 12 . OE 

- ENDFILE 15 OE 

C*** ; OP 

PRINT 995, (PS (1,1) ,1 = 1,6) OP 

99.5--F0B-MAT(* *,6F10.3) OP 

C*.*.*. IS THERE ANOTHER RUN TO BE GENERATED? OP 
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FILE: 


OPTSKPS POSTPAN A 


PHIHCETOH tJNI7EHSITY TIME-SHARING 


GOTO 1 C 

92 CONTINOE C 

STOP C 

END £ 

BLOCK DATA C 

COMMON/DATO/SOP,J,HSTEP,N,HAMES,TLAMO,AGLOBE C 

1 ,EPS2,SMEH0,ISTDME,XST (7) ,YST (7) ,ZST (7) C 

DIMENSION J (15) ,NAMES{38) C 

LOGICAL SOP C 

DATA SOP/ .PALSE. /, J/38, 2,23 , 5 , 26, 6, 27, 1 4, 24 , 1 5, 25, 29, 18, 2* 0/, C 

ANSTEP/60/,N/13/ C 

B, TLAH0/.700/,AGLOBE/2094000O./ C 

C, ISTDME/2/,XST/.703,.6985,5*.706/,YST/-1.297,-1.2985,5*-1.294/ C 

D, ZST/7*0,/»EPS2/.0067/,SMEHO/-1,300/ C 

1, NAMES/* DME1',»CLDE»,» Q HZ » , • HHDA* , • PEDR* , • BETA* , • P * C 

2, * R ',* NY *,* NX * , * ALFA* , 'DME2* , 'HADT* , *LEDP» , »TRDE» , *THET* C 

3, ». 7 »,*PSI *,'PHI *, 'TRDR* ,'TRDA’ ,.»PODE* ,*PODT» ,’PODF* ,'PODA* C 

4, »PODH* , *70R1 » , *HBAR* , ' ALS • , 'LMLS* , ' GMLS ' , ' 70R2 • , ‘INDP*, *HDIG* C 

5, »LGHT* , »HDSI*, 'TIME*/ C 

END ■ C 
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APPENDIX C 


COMPUTER SYSTEMS FOR PREPROCESSING 
AND POST-FLIGHT DATA REDUCTION 


Post-flight data handling begins using the HP 1000 
digital computer located at Princeton University's Gas 
Dynamics Laboratory. The raw data is transferred to a 
9-track, 1600 BPI magnetic tape that can be processed 
on either the IBM 4341 or the IBM 3033 computer. The 
following block-diagram summarizes the described procedure: 



Figure C-1. Data Reduction Procedure. 

The FORTRAN program CAT9 controls the transfer from the 
DCIOOA cartridges to the 9-track magnetic tape. The FORTRAN 
program RAWYl converts 16-bit binary-formatted data into 
IBM- compatible decimal integer format and arranges the data 
in physical time vectors. The FORTRAN program SPIFYl completes 
the preprocessing by converting the decimal integer time 
vectors into voltage and then into engineering units, also 


130 






converting indicated Air Speed (xAS) to True Air Speed 
(TAS) . 

The SPIFR data storage policy is to preserve both the 
raw flight-test data and the preprocessed data on magnetic 
tapes (9-track, 1600 BPI) , which makes it compatible for 
further analysis on both the IBM 4341 and the IBM 3033 
machines. Thus, two copies of the raw integer data (RAWYl 
output file) and one copy with engineering unit time-vectors 
(SPIFYl output file) -for further processing (analysis, 
tabular printouts or plotting) are preserved. 
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TRANSFER FROM CARTRIDGES TO TAPE 


T=00004 IS ON CR00005 USING 00012 BLKS R=0000 
FTN4,L 

PROGRAM CAT9(3,99), VERSION OF 4 JUNE 1981 
C 

C PROGRAM TO COPY BINARY DATA FROM CASSETTE TO IBM COMPATIBLE 

C TAPE DRIVE. 

C 

C LOADING THE PROGRAM 

C :RU,L0ADR,>KF4X,XCAT9 

C ~ 

C RUNNING THE PROGRAM 

C ;RU,CAT9,P1,P2 

C UHER'eVT- is the logical unit number of. YOUR TERMINAL 

C P2 - IS THE LOGICAL UNIT NUMBER OF THE MAG TAPE 

C 
C 

INTEGER IBUFFd28), IMORE, ISTAT, ITL0G,PARMS(5) ,NBLCK 
EQUIVALENCE (PARMSC 1) ,LUCRT) , (PARMS<:2) .MTLU) 

CALL RMPAR(PARMS) 

NBLCK=0 

C>ioiokREAD from left CARTRIDGE LU 4 

21 CONTINUE 

CALL EXECa.l00B+4, IBUFF, 123) 

C GET STATUS 

CALL ABREGCISTAT, ITLOG) 

URITE(LUCRT,4?) ITLOG 
4? FORMAT (110) 

C CHECK FOR END OF FILE 

IF(IAND(ISTAT,200B) .EQ. 200B) GO TO 22 
C CHECK FOR END OF TAPE 

IF(IAND(ISTAT,40B) .EQ. 40B) GO TO 22 
C CHECK FOR END OF DATA 

IF(IAND(ISTAT,2) .EQ.2)G0 TO 22 
C>Mo«(jJRITE TO TAPE 

CALL EXECC2, 100B+MTLU. IBUFF, 128) 

NBLCK=NBLCK+1 
yRITE(LUCRT,31)NBLCK 
31 FORMATCI?) 

GOTO 21 

22 CONTINUE 

IFCITLOG.LT. 128) GO TO 41 
CALL EXEC(2,100B+MTLU,IBUFF,128) 

NBLCK=NBLCK+1 
URITE(LUCRT,31)NBLCK 
41 yRITE(LUCRT,23) 

23 FORMATC'PLUG IN NEXT CARTRIDGE AND TYPE lOR IF LAST-TYPE 0' ) 
READ(LUCRT.>K) IMORE 

IFUMORE.EQ. DGOTO 21 

C URITE TUO CONSECUTIVE END OF FILE MARKS 
CALL EXEC(3.0100B+MTLU) 

CALL EXEC(3,0100B+MTLU) 

STOP 
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PREPROCESSING - STEP I 


FILE: EAiYI FORIEAS A1 PSISCETON UNiyiESITY II?!E-SHAEING SYSTEM 
CO8HCN/DAT0/SOF,HB 

LOGICAi GO,SCF Pi 

NAnElI3T/,ISP/FILE RJ 

INTiGEE»2 A3 ( 1 200) , A2 {1 700 ,3 8) EJ 

INlEG.Efi*2 DATA (123) El 

10GICA1*1 EA10G{256) S? 

LOGICAL*! SSLOG(256) Ei 

INTEGEE+2 DATA! (128) 

INTEGE8*2 EATA2(128) RJ 

EQOIVALENCI (DATA ( 1 ) ,DALOG ( 1) ) , < SSLOG < 1) , D AT A 1 (1 ) ) EH 

xNlEGEfi FILE (2) 

N A EILI ST/OK/GO Rh 

NAMELIST/EA1/SC?,SB BJ. 

C*** Hi 

1 CONIINOE BA 

PRINT 1002 RJ 

1002 FOEf3AT(1H ,*1YPB SINP FILE- SEND*) EA 

EEAD(5,INP) Rl 

INf1=FILF(1) BA 

INE2=FILE(2) Bl 

PRINT 2000,FXLi RA 

2000 FOEMAT(2I10) BA 

PRINT 1004 RA 

1004 FOEaAT{lH ,»IYPE SDAT DATA= &ENB») EJ 

READ (INF1, DAT) HA 

IF(30F)GCTC S2 RA 

PRIST 1003 Rl 

1003 FOENAT (Ifl ,'IF EVERYTHING O.K. TYPE 30K G0=. TEOE. SEND ' ) RA 

GO=,TEOE, RA 

READ(5,CK) RA 

IF (GO) GOTO 10 RA 

GOTO 1 RA 

10 CONTINOE RA 

€♦♦♦ RA 

11=0 BA 

12=0 RA 

C*** BA 

BEAD { 15, 17) DATA RA 

DO 28 1=1 ,255,2 EA 

SHLOG(I) =DALCG(I+ 1) B5 

SWICG (I + 1)=DALOG (I) EA 

28 CONTINUE BA 

GOTO 32 RA 

C*** RA 

99 CONTINOE RA 

DO 30 1=1,128 RA 

30 DATA2 (I)=DATA1 (I) BA 

READ (15,17, ESD=1 00) DATA BA 

17 fOEMAT (12852) RA 

DO 29 1=1,255,2 RA 

S8I0G(I) =DALCG(I+1) EA 

SWIGG (1*1) =DALOG (I) RA 

29 CONTINUE RA 

€♦♦* R A 

DO 3 1 1=1,128 RA 
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FILE: RAWY1 


FCETEAN A1 PfilNCEIOE ONIVEESITY TIME-SHARING SYSTEM 


IF{CATA2{I) .NS.DATAl (I) )GOIO 32 BAS- 

31 CONTINUE RAH 

GOTO S9 RAW. 

32 CONTINUE HAS'. 

C*** BAH 

11=11+1 BAH 

IF {I1.EQ.8)GCTO 4 17 RAH 

IK) 421 M= 1,1 28 RAH 

M3=M+ (11-1) *128 RAH 

421 A3(K3)=DA1A1(M) RAH 

GOTO 99 RAN 

417 DO 418 M=1,92 RAN 

M3=M+ (II- 1) *128 EAR 

418 A3 (M3) = DATA1 (M) RAH 

C***M3=1- (128*8-36) ;I1=0-8;I2=NC. CF 2048-BYTE BLOCKS, RAH 

C***EEAD FROM TAPE INTO A3 (EACH OYEESSITING THE PREVIOUS). RAN 

12=12+1 RAW 

K1=26* (12-1 ) +1 RAH 

K2=Kl+25 RAH- 

C*K HAS a SPAN OP 26 AS 1024=38*26+36 RAN 

C*** RAH' 

J7=0 RAN 

DO 431 K=K1,K2 EAS 

IF (K.GT. NB) GOTO 437 RA» 

DO 432 J=1,3 8 HAS' 

432 A2 (K,J)=A3 (J7+J) RAB 

J7=J7+38 RAH 

431 CONTINUE RAH 

1 1 = 0 RAS^ 

GOTO 99 RAH 

100 CONTINUE BAH 

C*** RAH 

PRINT 441 RAH 

441 FOR«AT(1H EOT; DECREASE NE AND RERUN AS A Ni» JGB*) RAH 

C*** BAK 

4 37 CONTINUE HAS' 

KSGF=K-1 BAS 

27 FOEMAT(1H ,110) RAS- 

PRINT 27,KSGF RAS' 

DO 531 J=1,38 BAS 

531 SEITE (9) (A2 (K0,J) ,K0=1,KSGF) EAR 

ENEFILE 9 RAW 

C*** HAS 

GOTO 1 BAS- 

92 CON II NOE HAS' 

STCP RAHi 

END BAS', 

BLOCK BATA BA « 

COMMGN/CATC/SOF,NB BAS 

LOGICAL SOF RASi 

DATA SOF/ .FALSE. /,NB/256/ RAS- 

END RAS 
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PREPROCESSING - STEP II 


FILE: SPIFY1 FORTRAN A1 PRINCETON ONI¥£ESITY TIME-SHARING SYSTEM 


COMMCN/DATC/SOF,73LOPE,VCONST,PHSLOP,PHCOI'1S,N11,B?HSTD SI 

INTEGER FILE (2) SI 

CIMENSION A3 n700,38) ^PHSiCP (55) ^PHCCNS {55) Sf 

INTEGER*2 22(1700,38) SE 

LOGICAL GO,SGF SP 

NAMEIISI/IKP/FILE SE 

NAMEIIST/OK/GO SE 

NAMEIIST/CAT/SCF, VSLOPE, VCONST,?HSLOP,PECON3,N 11,DPN£TD 3E 

1 CONTINUE SP 

PRINT 1002 31 

1002 FORMAT (1H ,*TIPS SINP FI1E= SEND*) SP 

SiAD(5,INP) SI 

INF1=FILE(1) SP 

INF2 = FILE(2) SE 

PRINT 2000, FILE SP 

2000 FORMAT (211 C) 3E 

PRINT 1004 SE 

1004 FORMAT (IH ,'TYP£ SOAT DATA= SEND') SP 

READ (INF1, EAT) SE 

IF(SCF)GOTO 92 SP 

PRINT 1003 SE 

1003 FORMAT (Ifl ,»IF EVERYTHING C.K, TYPE SOK GO = . TRUE. SEND •) SP 

GC=.TR0E. SE 

READ (5, OK) SP 

IF (GO) GOTO 1C SP 

GOTO 1 SP 

10 CONTINOE SE 

€♦♦♦ SP 

DO 501 J=1,38 SP 

501 READ (9) (A2(I,J),I=1,N11) SP 

C***NOW-INTO REAL PHYSICAL DATA, SP 

DO 512 1=1 ,S11 SP 

ISIGN=0 SP 

IF (A2 (1,1) .LT. O) ISIGN=1 SP 

€♦♦*65535=2**16-1, EECAOSE IF LEFTMOST OF THE 1 6-ZEROS-ASD-CNES-FIELD SP 
C***IS ONI, IT ITSELF IS INTESPRETTED AS MINOS AND EACH OF THE OTHER SP 

C***15 BITS IS CHANGED (ONES TO ZEROS ANI ZEROS TO C8ES). SP 

C***THUS ,E,G.,A 16-ONES- FIELD IS INTESPRETTED AS -0 INSTEAD OF 2** 16-1 SP 

C***AND A ONE FOILCSED BY 15 ZEROS IS -(2**15-1) INSTEAD OF 2**15 SP 

512 A3 (I, 1)=A2 (I, 1) +ISIGN*65535 SP 

DO 502 1=1, Nil SP 

DO 503 J=2,12 SP 

ISIGN=0 SP 

IF (A2 (I,J) ,LT,0) ISIGN=1 SP 

503 A3 (I,J|= ( i (A2 (I,J) ♦ISIGN*65535) ♦VSLOPE/16. + VCOKST)*PKSLOP (J) + SP 

IPHCONS(J)) SP 

502 CONTINUE SP 

€♦♦♦ SP 

DO 521 I=1,S11 SP 

ISIGN=0 SP 

IF (A2 (I, 13) . IT.O) ISIGN=1 SP 

521 A3 (I,13)=A2 (1,13) +ISIGN*65535 SP 

DO 522 I=1,N11 SP 

DO 523 J=14,34 SP 

ISIGN=0 SP 
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FILE: SPIFYl FCBIEAN A1 PEISCB'ION UNIVEESKY T2ME-SH AEI SG SISl’EM 

IF (S2 (I,J) ,LI-0) ISXGN=1 SPI> 

523 A3 (I, J) =( ( {A2(I,J) +ISIGS»o5535) ♦VSLOPE/16. ♦VCCNST) ♦PH3IOP (J)+ SPI 

IPHCONS(J)) SPI 

522 CONTINUE 3EI 

C*** SPI 

DO 314 1 = 1 ,N11 SPI 

DO 515 J=35,38 SPI 

ISIGN=0 SPI 

IF(A2(I, J) .II,0)ISIGN=1 SPI 

515 A3 (I,J)=A2 (I,J) HSIGN^bSSaS SPI 

514 CONTINUE SPI 

C*** SPI 

DO 591 1=1, Nil SPI 

591 IF(A3(I, 19) .LT.O,) A3 {I, 19)=A3 (1,19) +360. SPI 

C*** SP2 

DC 601 I=2,N11,2 SPI 

601 A3 (1,1) =A3 (1,13) SPI 

DO 602 1=3, Nil, 2 SPI 

602 A3 (I,1) = .5*(A3{I-1,1)+A3(I+1,1)) SPI 

A3 ( 1, 1)=A3 (2,1) SPI 

N111=Nl1-2 SPI 

DO 603 1=2, N1 11,2 SPI 

603 A3 (I, 13) =.5* (A3 (1-1, 13) +A3 (1+1, 13)) SPI 

A3 (N1 1 ,13)=A3 (N11-1, 13) SPI 

C*** SPI 

C***PSAT=PfiAIIO;EEAT=ERATIO SPI 

DO 6 1 1 1 = 1, 811 SPI 

PBAI= (A3 (1/29) +DPNSTD)/1013.3 SPI 

5BAT=PSA2:**.81 SPI 

A3 (I, 18) = 1. 689*A3 (I, 18)/SQET (BEAT) SPI 

ECCSST=EXP (AlOG (PBAT) /5 .256) SFI^ 

A3 (I, 29)= (1-HCONST)/. 00000689 SPI. 

611 CONTINUE SPI 

€*** SPI‘ 

C***NOT TC LOSE ACCUBACY,THE TIHE 7ECTCBS SBE STOBED DNFOEH AIT.EB ,1. E. SPI. 
C*#*asiNG DNFOEMAfflD BEAD (AND SEIIE WHEN HETHIEYING FOB FUHTHES SPI 

C*»*PEOCESSING), SPI 

DO 121 J=1,38 SP2 

121 WRITE (10) (A3 (I, J) ,1=1, Nil) SPI 

ENEFIIE 10 SPI; 

C***I3 THEBE ANOTHEB EON TO BE GENEEfiTIE? SPI 

GOTO 1 SPI' 

92 CONTINUE SPI- 

STOP SPI 

END SPIv 

BLOCK DATA SPI 

COHHON/CATG/SOF, V3LGPE, VCONST,PHSLOP,9HCONS ,N11,DPN3ID SPI 

DIMENSION PHSLOP (55) ,PHCONS (55) SPI 

LOGICAL SCF SPK 

DATA SOF/ .FALSE. /, YSLOPE/, 004884/, VCCNST/- 10./, SPI 

1PHSLCP/1., 1.6583, -2. 7604, -.20555, -8. 2085,. 2557, SPI 

2-3.0754,4. 08 11, -3. 4664, -.05 184,. 055 19, 2. 861 1 , SPir 

31. ,.0508,. 1020,-5. ,3. 1338,5.0623, SPI; 

418. 2787,-8. 1864, 5., -5. ,2.4703 0513, 3 PI. 

55. 1310,-1,9589,2.4074, 1., 15.275,2.36 11, SPI. 
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FILE; SPIiYI FOaiSAS Al PSINCEIOH DNIVEBSIfY miE-SHABING SYSTEM 

6.25,.10,1 . ,.1,1. ,3*1. , SI 

717*1./, SJ 

8PHCONS/0. ,-3.2009, .458,-. 02467,-. 5304,. 1055, SI 

9-. 10 19, -.0427, -.2 04 8,-. 00 19, -.01233, 13.7125, S! 

AO, ,.492,-. 00 17,0. ,. 3805, 99 . 9689 , S£ 

B. 0S£4,-. 4 821 ,0.,0. ,-4.0193, .513, SI 

C- 2 3. 8869, 1.5698, 3. 5703,0., 950,, 13.7 12 5, SI 

DO, ,0. ,0. ,0. ,0. ,0. ,0. ,0. , SI 

E17*0./, SI 

FN 11/10/ St 

G,DENSTI/0./ SI 

END Si 
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APPENDIX D 


INTEGRATION OF DISTANCE MEASURING 
EQUIPMENT (DME) INTO THE DATA COLLECTION SYSTEM 


The DME component of the navigation/communication 
system has been integrated into the onboard experimental 
setup with the capability to sequence automatically avail- 
able navigation stations and process the distance informa- 
tion using microprocessor control. The navigation/communica- 
tion (NAV/COM) and the DME are part of the Bendix "BX-2000" 
product line of aircraft avionics. A digital information 
format is used in the Bendix NAV/COM and DME for frequency 
tuning. The DME receiver output to the pilot's indicator 
is a pulse-width signal which is compatible with digital 
processing techniques. 

This appendix is sub-divided into sections . relating to 
the external (microprocessor) tuning, distance signal de- 
coding, and an overview of the DI1E system and specifications. 
The first two sections are specific to the Bendix system. 
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D-1. EXTERNAL DME TUNING 


The Bendix DM-2031A DME receiver/ transmitter has pro- 
visions for both "2 out of 5” tuning which is compatible 
with other manufacturers systems and a serial binary-coded- 
decimal CBCD) tuning. The serial tuning method is used by 
the Bendix NAV/COM and is implemented in the microprocessor 
tuning for compatibility. When the Bendix DME is installed 
with the Bendix NAV/COM, the DME serial tuning signal is 
the same one which is used for tuning the NAV receivers. 

As shown in Figure D-1, a switch located on the NAV/COM 
(Bendix CN-2011A) permits the pilot to select DME tuning 
paired with either NAV 1 or NAV 2. In the center-off or 
hold (H) position, no tuning signal is sent to the DME. 

Under this condition the DME continues to hold the last 
tuning selection and station frequency. The tuning signal 
contains a BCD format of the paired NAV frequency. (The 
NAV frequency is not the actual frequency used in the DME 
system, as will be explained in the overview section.) 

The tuning signal is in the form of a twenty-bit 
asynchronous pulse-width modulated serial word. The serial 
data word format is shown in Figure D-2. The basic period 
of each word is 4.0 msec, and when supplied by the NAV/COM; 
the word rate is 250 Hz. However, a single word is sufficient 
to tune the DME. Note that the same format is used for the 
COM, NAV, DME and GS (glide slope) units in the Bendix 
product line. The first bit in the word is the synchronizing 
pulse. Each bit after the first is dedicated to a specific 
piece of information. The value of bits 2 through 7 is 
ignored in the current DME, but future units may use these 
bits as a device code . 
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The bit format is shown in Figure D-3. Syncroniza- 
tion, logic "1", and logic "0" bits correspond to 150- , 

100- and 50-microsecond duration pulses respectively. 

The decoder inside the DME (as well as NAV, COM and GS) is 
relatively tolerant of the actual pulse width (and word 
length) of the incoming signal. As mentioned previously, 
the synchronizing pulse (bit 1) indicates the beginning 
of the serial data word. During the synchronizing pulse, 
the signal level stays at logic 1 for 150 microseconds 
(nominal) . The Bendix circuitry samples each bit at 125 
microseconds to determine if that bit is the synchronizing 
pulse. A similar sample is made at 75 microseconds to 
differentiate logic 1 and logic 0 pulses. Hence, the minor 
variation in the pulse widths of the tuning signal will not 
compromise the proper functioning of the system. 

A microprocessor software program which generates the 
bit pulses and data word format to tune the DME was written 
using simple software timing loops. This program was veri- 
fied using an oscilliscope to check the pulse widths and 
data word format. Software programming of the station 
sequencing was not completed in time for implementation on 
the test program. The alternative tuning method to be 
described latter is an interim solution. 

Electrical (hardware) interfacing for microprocessor 
tuning output to the DME input is shown in Figure D-4 . A 
signal inversion is employed at the NAV/COM's DME tuning 
signal output (this was not shown in Figure D-1 for clarity) 
and the signal is again inverted at the DME. Thus, the 
signals on the interconnecting wires are inverted with 
respect to Figure D-3. The high level (pull-up) voltage 
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is 12 to 15 volts. An open collector buffer, preferrably 
with a 12 volt pull-up, may be used at the microprocessor 
side of the interface. 

The alternative tuning method used in the current 
testing also is shown in Figure D-4. A switch located on 
the avionics section of the instrument panel allows the 
pilot to select normal NAV/COM (N) tuning or remote micro- 
processor (EXT) tuning. In the EXT position either the NAV 1 
or NAV 2 tuning signal is routed to the DME, depending on 
the position of the relay shown. The relay is driven by 
a discrete digital output of the microprocessor. No changes 
in software logic were required for this implementation 
since the relay was driven in parallel with the "computer 
functioning" light on the instrument panel. The present 
rate of 0.5 Hz allows sufficient time for DME station lock- 
on and measurement of distance. 

The selection switch N/EXT provides an additional 
function. In the EXT position, the displayed DME distance 
available on the one pilot's electronic course deviation 
instriiment (ECDI) is blanked. The primary center panel DME 
indicator is not blanked, and the microprocessor station 
tuning of the DME can be verified by the safety pilot. The 
primary DME indicator can be switched by the safety pilot 
to display elapsed time or other function during flight 
tests . 
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Figure D-4. DME Tuning Electrical Interface. 
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D-2. DME DISTANCE SIGNAL DECODING 


Three signal outputs are generated by the Bendix 
DM-2031A DME receiver/transmitter : a pulse pair (RPl and 
RP2) and a status signal (SEARCH) . The time interval 
between RPl and RP2 represents the slant range distance to 
the DME ground station. The digital logic interface, shown 
in Figure D-5, processes these three signals upon a DATA 
READ signal from the microprocessor. The distance represented 
the difference (RP2 - RPl) is presented to the microprocessor 
as a 16-bit (2-byte) word. The high-order bit of this data 
word is used to indicate the DME status (SEARCH) . 

The difference (RP2 - RPl) is measured by a 16-bit 
digital counter using a crystal controlled oscillator which 
operates at a frequency of 18 MHZ. Using the principle 
that RF energy travels one nautical mile and returns in 
12.359 microseconds, the slant range from the aircraft to 
the ground station can be determined. Since the high-order 
bit is used for the status SEARCH signal, the maximvim 
distance reading (15 bits) is 147 nautical miles. Although 
the interface clock frequency of 18 MHZ would suggest a 
measurement (counter) bit resolution of 27 feet, the actual 
resolution is determined by the processing within the Bendix 
DM-2031A. The LSI (large-scale-integration) chip that 
generates these pulses uses a 1.6 MHz clock (actually 
1.61825 MHZ) which limits the (RP2 - RPl) difference incre- 
ments to the equivalent of 0.05 nautical miles. Some other 
factors influencing measurement accuracy are discussed in the 
overview section. 

The digital logic interface is presented in a simplified 
block diagram form in Figure D-6 for discussion of interface 
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Figure D-6. DME Interface Block Diagram. 
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operation. The status of SEARCH is used to enable the 
counter as a precaution, although the absence of pulses 
RPl and RP2 would preclude counter operation. The counter 
is started from a previously cleared (zero) value by the 
RPl pulse from the DME. As noted previously, the counter 
rate is determined by the 18 MHZ referecne clock. The 
count is stopped by the RP2 pulse. 

Two other events occur after receipt of RP2. After 
a very short delay, the count is transferred to the buffer 
via the latch control; when this operation is completed, 
the counter is reset or cleared. This chain of events con- 
tinues to cycle as long as the signal DATA READ is not 
asserted by the microprocessor data collection system. 
Counter and buffer updates will take place at a 21 Hz rate 
during normal DME operation. When the microprocessor gener- 
ates a DATA READ request, transfer of counter information to 
the buffer is inhibited. This signal is maintained by the 
microprocessor until the buffer has been read. This mode of 
operation guarantees that some data will be available so 
that the microprocessor will not "hang" in a wait state. 

The data in the buffer will normally be valid distance in- 
foirmation measured within the last .05 sec of receipt of 
DATA READ. The signals RPl and RP2 are not the raw pulses 
used by the DME interrogating a ground station; rather, they 
are generated by a sophisticated LSI chip. Corrections for 
delays in turnaround at the ground station and within the 
Bendix unit are applied so that the (RP2 - RPl) difference 
has no bias for true zero distance. Upon loss of the DME 
station, the (RP2 - RPl) pulses will continue to be sent by 
the LSI chip for up to 10 sec. A correction also is made to 
maintain the same rate of change (groundspeed) as observed 



prior to station signal loss. The correstion is 80% of the 
preobserved groundspeed to prevent a "backing up" indication 
on the pilot's indicator when the signal is reacquired. The 
consequences of the above and other effects are discussed 
in the following overview section. 
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D-3= DME/DATA COLLECTION OVERVIEW 

The purpose of the DME system is to provide the pilot 
with slant range distance information from the aircraft to 
a selected DME ground facility. The system transmits 
interrogation signals in the form of pulse pairs to the 
selected ground station. The DME ground facility receives 
the interrogation signal and returns a reply signal (again 
a pulse pair) for each interrogation received. Multiple 
aircraft may interrogate the DME ground station. 

The DME system operates in the frequency range of 978 
MHZ to 1212 MHz. There are 200 DME channels which are paired 
with VHF NAV frequencies between 108.00 MHz and 117.95 MHz 
(100 "X" channels and 100 "Y" channels) . For example DME 
channel 85X is paired with NAV frequency 113.80 MHz. The 
aircraft transmits the interrogation pulses at 1109 MHZ 
and receives the reply offset by 63 MHz at 1172 MHz. (Some 
X channels are offset below the transmission frequency.) 

On the .05 spacing VHF frequencies such as 113.85 MHz 
(paired DME channel 85Y) the same transmission frequency is 
used but the reply is offset opposite to that used for the 
X channel (1046 MH 2 ) . Since some electrical processing de- 
lay will take place from receipt of interrogation signal to 
reply signal, all replys are adjusted to a specific delay 
to permit accurate measurement of the elapsed time by the 
airborne distance measuring circuits. This delay is 50 ysec 
for "X" stations and 56 usee for Y stations (measured between 
the first pulse of interrogation to the first pulse of reply) . 

The interrogation pulse pairs are spaced at 12 usee 
for X channels and 36 usee for Y channels. The reply pulse 
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pairs are 12 usee and 30 usee for X and Y respeetively . 

The DME ground faeility eontinuously transmits a 
nominal 2700 pulse pairs per seeond squitter signal with a 
1350 Hz identifieation morse eode signal at 30-seeond 
intervals. The 1350 identifieation signal eonsists of 
groups of evenly spaeed pulse pairs. The ground station 
provides a reply pulse pair that replaees a squitter pulse 
pair 50 usee after reoeiving an interrogation. The identi- 
fieation signal is available to the pilot as an audio tone 
to verify tuning and station seleetion. 

When the DME is first tuned to a ground station, it 
must determine whieh reply pulses are to its interrogation 
pulses as opposed to those meant for other aireraft. Old 
model DME equipment frequently took 20 seeonds or longer to 
aehieve a loek-on and traek. The Bendix DM-2031A specifica- 
tion for lock-on is less than 1 second. During the search 
period the interrogation rate is increased to 140 pulse 
pairs/sec to improve the detection time . This is reduced 
to 21 interrogations per sec during track. All DME units 
also use a variable pulse repetition rate to prevent syn- 
chronization of distance replies between other DME aircraft 
interrogators. A random jitter of the interrogation rate 
about the nominal of ± 1% is used in the Bendix DM-2031A. 

The specification measurement accuracy of the Bendix 
DM-2031A is ± 0.1 nautical mile or .15 percent, whichever is 
larger. The minimiim indication on the pilot's display of 
the Bendix DME system is 0.1 nautical mile. The output 
resolution of the signal to the indicator (RPl - RP2) pulses 
is 0.05 nautical m.ile. 
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A possible source of error, both at the ground station 
and in the aircraft processing circuits, is proper pulse 
delay processing. The DME ground station error specification 
is ± 0.1 nautical miles indicating that the pulse delay (50 usee 
on channel X) is within 1.2 usee. This type of error, at a 
given ground station, and airborne unit should be predictable 
and could be removed from the data. Determination of this 
error is predicated on range measurement of multiple DME 
stations by the aircraft. A small dynamic error occurs with 
the data collection system since the measurement time may 
be in error by the update period (approximately 0.05 sec) . 

In the implementation discussed here, an error due to signal 
loss is possible. Time difference information can continue 
up to 10 seconds after signal loss as mentioned previously. 

With the present scheme of sequencing stations every 2 
seconds, the memory circuit is only partially charged, and 
it is unlikely that a memory generated signal will be obtained. 
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